Profile: /wise/base/deliv/dev/lib/perl/WISE/Release.pm

File	/wise/base/deliv/dev/lib/perl/WISE/Release.pm
Statements Executed	14
Total Time	0.000402 seconds

Subroutines — ordered by exclusive time
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
0	0	0	0	0	WISE::Release::	BEGIN
0	0	0	0	0	WISE::Release::	new
0	0	0	0	0	WISE::Release::	release
0	0	0	0	0	WISE::Release::	revision
0	0	0	0	0	WISE::Release::	version

Line	Stmts.	Exclusive Time	Avg.	Code
1				#! /usr/bin/env perl
2
3	3	3.5e-5	1.2e-5	use strict; # spent 16µs making 1 call to strict::import
4	3	7.1e-5	2.4e-5	use warnings; # spent 25µs making 1 call to warnings::import
5
6				#use lib qw(/wise/base/deliv/dev/lib/perl);
7
8				package WISE::Release;
9
10	3	0.00029	9.6e-5	use vars qw($VERSION $RELEASE $REVISION); # spent 56µs making 1 call to vars::import
11
12	1	1.0e-6	1.0e-6	my $version = '$Id: Release.pm 7228 2010-02-08 23:15:10Z tim $ ';
13
14	1	1.0e-6	1.0e-6	$VERSION = 1.00;
15	1	0	0	$REVISION= '$Id: Release.pm 7228 2010-02-08 23:15:10Z tim $ ';
16	1	1.0e-6	1.0e-6	$RELEASE = 'NONE';
17
18				sub new {
19				my $class = shift;
20				my %this;
21
22				$this{version} = $VERSION;
23				# The values will only cahnge here if it's current value matches
24				# the default pattern.
25				$this{revision} = $REVISION;
26				$this{revision} =~ s\|\$[I]d:\s(.?)\s*\$\|$1\|;
27				$this{revision} \|\|= 'NONE';
28				$this{release} = $RELEASE;
29				$this{release} =~ s\|\$[N]ame:\s(.?)\s*\$\|$1\|;
30				$this{release} \|\|= 'NONE';
31
32				return bless \%this,$class;
33				}
34
35				sub version { shift->{version}; }
36				sub revision { shift->{revision}; }
37				sub release {
38				my $this=shift;
39				$RELEASE = $this->{release} = $_[0] \|\| "NONE" if defined $_[0];
40				$this->{release};
41				}
42
43	1	6.0e-6	6.0e-6	1;