| File | /usr/share/perl/5.8/strict.pm | Statements Executed | 112 | Total Time | 0.000484 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine | |
|---|---|---|---|---|---|---|
| 10 | 3 | 1 | 0.00031 | 0.00031 | strict:: | bits |
| 9 | 9 | 9 | 0.00019 | 0.00024 | strict:: | import |
| 7 | 7 | 5 | 0.00013 | 0.00029 | strict:: | unimport |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | package strict; | |||
| 2 | ||||
| 3 | 1 | 2.0e-6 | 2.0e-6 | $strict::VERSION = "1.03"; |
| 4 | ||||
| 5 | 1 | 5.0e-6 | 5.0e-6 | my %bitmask = ( |
| 6 | refs => 0x00000002, | |||
| 7 | subs => 0x00000200, | |||
| 8 | vars => 0x00000400 | |||
| 9 | ); | |||
| 10 | ||||
| 11 | sub bits { | |||
| 12 | 50 | 0.00013 | 2.7e-6 | my $bits = 0; |
| 13 | my @wrong; | |||
| 14 | foreach my $s (@_) { | |||
| 15 | 26 | 7.3e-5 | 2.8e-6 | push @wrong, $s unless exists $bitmask{$s}; |
| 16 | $bits |= $bitmask{$s} || 0; | |||
| 17 | } | |||
| 18 | if (@wrong) { | |||
| 19 | require Carp; | |||
| 20 | Carp::croak("Unknown 'strict' tag(s) '@wrong'"); | |||
| 21 | } | |||
| 22 | $bits; | |||
| 23 | } | |||
| 24 | ||||
| 25 | 1 | 6.2e-5 | 6.2e-5 | my $default_bits = bits(qw(refs subs vars)); # spent 103µs making 1 call to strict::bits |
| 26 | ||||
| 27 | # spent 238µs (186+52) within strict::import which was called 9 times, avg 26µs/call:
# once (29µs+25µs) at line 3 of /usr/share/perl/5.8/base.pm
# once (16µs+27µs) by vars::BEGIN at line 8 of /usr/share/perl/5.8/vars.pm
# once (28µs+0) at line 3 of /usr/share/perl/5.8/AutoLoader.pm
# once (26µs+0) at line 3 of /usr/local/lib/perl/5.8.8/Geo/IP.pm
# once (23µs+0) at line 5 of /usr/lib/perl/5.8/Config.pm
# once (19µs+0) at line 29 of plugins/geoip.pm
# once (16µs+0) at line 8 of /usr/local/lib/perl/5.8.8/Geo/IP/Record.pm
# once (15µs+0) at line 15 of awstats.pl
# once (14µs+0) at line 6 of /usr/share/perl/5.8/Time/Local.pm | |||
| 28 | 18 | 9.5e-5 | 5.3e-6 | shift; |
| 29 | $^H |= @_ ? bits(@_) : $default_bits; # spent 52µs making 2 calls to strict::bits, avg 26µs/call | |||
| 30 | } | |||
| 31 | ||||
| 32 | # spent 289µs (130+159) within strict::unimport which was called 7 times, avg 41µs/call:
# once (21µs+26µs) by Geo::IP::BEGIN at line 63 of /usr/local/lib/perl/5.8.8/Geo/IP.pm
# once (21µs+25µs) by AutoLoader::AUTOLOAD at line 95 of /usr/share/perl/5.8/AutoLoader.pm
# once (19µs+26µs) by Config::BEGIN or Config::import at line 31 of /usr/lib/perl/5.8/Config.pm
# once (20µs+22µs) by AutoLoader::BEGIN or AutoLoader::unimport at line 173 of /usr/share/perl/5.8/AutoLoader.pm
# once (19µs+22µs) by AutoLoader::import at line 128 of /usr/share/perl/5.8/AutoLoader.pm
# once (16µs+21µs) at line 29 of plugins/geoip.pm
# once (14µs+17µs) at line 15 of awstats.pl | |||
| 33 | 14 | 0.00010 | 7.4e-6 | shift; |
| 34 | $^H &= ~ (@_ ? bits(@_) : $default_bits); # spent 159µs making 7 calls to strict::bits, avg 23µs/call | |||
| 35 | } | |||
| 36 | ||||
| 37 | 1 | 1.0e-5 | 1.0e-5 | 1; |
| 38 | __END__ | |||
| 39 |