| File | /wise/base/deliv/dev/lib/perl/WISE/Release.pm | Statements Executed | 53 | Total Time | 0.000565 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine | |
|---|---|---|---|---|---|---|
| 3 | 2 | 2 | 0.00022 | 0.00022 | WISE::Release:: | new |
| 3 | 2 | 2 | 3.5e-5 | 3.5e-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.8e-5 | 1.3e-5 | use strict; # spent 14µs making 1 call to strict::import |
| 4 | 3 | 5.6e-5 | 1.9e-5 | use warnings; # spent 39µ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.6e-5 | use vars qw($VERSION $RELEASE $REVISION); # spent 49µ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 | 0 | 0 | $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 218µs within WISE::Release::new which was called 3 times, avg 73µs/call:
# 2 times (118µs+0) by WISE::UtilsLight::banner at line 99 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm, avg 59µs/call
# once (100µs+0) by WISE::IPACTbl::new at line 198 of /wise/base/deliv/dev/lib/perl/WISE/IPACTbl.pm | |||
| 19 | 30 | 0.00018 | 6.0e-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 35µs within WISE::Release::release which was called 3 times, avg 12µs/call:
# 2 times (22µs+0) by WISE::UtilsLight::banner at line 99 of /wise/base/deliv/dev/lib/perl/WISE/UtilsLight.pm, avg 11µs/call
# once (13µs+0) by WISE::IPACTbl::new at line 198 of /wise/base/deliv/dev/lib/perl/WISE/IPACTbl.pm | |||
| 38 | 9 | 1.8e-5 | 2.0e-6 | my $this=shift; |
| 39 | $RELEASE = $this->{release} = $_[0] || "NONE" if defined $_[0]; | |||
| 40 | $this->{release}; | |||
| 41 | } | |||
| 42 | ||||
| 43 | 1 | 1.3e-5 | 1.3e-5 | 1; |