| File | /wise/base/deliv/dev/lib/perl/WISE/Release.pm | Statements Executed | 27 | Total Time | 0.000413 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine | |
|---|---|---|---|---|---|---|
| 1 | 1 | 1 | 9.7e-5 | 9.7e-5 | WISE::Release:: | new |
| 1 | 1 | 1 | 1.3e-5 | 1.3e-5 | WISE::Release:: | release |
| 0 | 0 | 0 | 0 | 0 | WISE::Release:: | BEGIN |
| 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.0e-5 | 1.0e-5 | use strict; # spent 9µs making 1 call to strict::import |
| 4 | 3 | 4.0e-5 | 1.3e-5 | use warnings; # spent 27µ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.00026 | 8.7e-5 | use vars qw($VERSION $RELEASE $REVISION); # spent 58µs making 1 call to vars::import |
| 11 | ||||
| 12 | 1 | 2.0e-6 | 2.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 | 1.0e-6 | 1.0e-6 | $REVISION= '$Id: Release.pm 7228 2010-02-08 23:15:10Z tim $ '; |
| 16 | 1 | 1.0e-6 | 1.0e-6 | $RELEASE = 'NONE'; |
| 17 | ||||
| 18 | # spent 97µs within WISE::Release::new which was called
# once (97µs+0) by WISE::IPACTbl::new at line 241 of /wise/base/deliv/dev/lib/perl/WISE/IPACTbl.pm | |||
| 19 | 10 | 6.7e-5 | 6.7e-6 | 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 | # spent 13µs within WISE::Release::release which was called
# once (13µs+0) by WISE::IPACTbl::new at line 241 of /wise/base/deliv/dev/lib/perl/WISE/IPACTbl.pm | |||
| 38 | 3 | 5.0e-6 | 1.7e-6 | my $this=shift; |
| 39 | $RELEASE = $this->{release} = $_[0] || "NONE" if defined $_[0]; | |||
| 40 | $this->{release}; | |||
| 41 | } | |||
| 42 | ||||
| 43 | 1 | 5.0e-6 | 5.0e-6 | 1; |