| File | /usr/share/perl/5.8/strict.pm | Statements Executed | 23 | Total Time | 4.4e-05 seconds |
| Calls | Inclusive Time | Subroutine | |
|---|---|---|---|
| 7 | 0.00008 | strict:: | import |
| 1 | 0.00003 | strict:: | unimport |
| 1 | 0.00002 | strict:: | bits |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | package strict; | |||
| 2 | ||||
| 3 | $strict::VERSION = "1.03"; | |||
| 4 | ||||
| 5 | my %bitmask = ( | |||
| 6 | refs => 0x00000002, | |||
| 7 | subs => 0x00000200, | |||
| 8 | vars => 0x00000400 | |||
| 9 | ); | |||
| 10 | ||||
| 11 | # spent 0.00002s within strict::bits which was called:
# 1 times (0.00002s) by strict::unimport at line 34 of /usr/share/perl/5.8/strict.pm sub bits { | |||
| 12 | 7 | 9e-06 | 1e-06 | my $bits = 0; |
| 13 | my @wrong; | |||
| 14 | foreach my $s (@_) { | |||
| 15 | 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 | my $default_bits = bits(qw(refs subs vars)); | |||
| 26 | ||||
| 27 | # spent 0.00008s within strict::import which was called 7 times, avg 0.00001s/call:
# 1 times (0.00001s) at line 3 of /usr/share/perl5/CGI/Session/Serialize/yaml.pm
# 1 times (0.00001s) at line 5 of /usr/share/perl5/CGI/Session/ID/md5.pm
# 1 times (9e-06s) at line 4 of /usr/lib/perl5/YAML/Syck.pm
# 1 times (0.00001s) at line 5 of /usr/share/perl5/CGI/Session/Driver/mysql.pm
# 1 times (0.00001s) at line 5 of /usr/share/perl5/CGI/Session/Driver.pm
# 1 times (0.00001s) by C4::Context::BEGIN at line 10 of kohaversion.pl
# 1 times (9e-06s) at line 5 of /usr/share/perl5/CGI/Session/Driver/DBI.pm sub import { | |||
| 28 | 14 | 0.00002 | 2e-06 | shift; |
| 29 | $^H |= @_ ? bits(@_) : $default_bits; | |||
| 30 | } | |||
| 31 | ||||
| 32 | # spent 0.00003s within strict::unimport which was called:
# 1 times (0.00003s) by CGI::Session::Driver::DBI::BEGIN or CGI::Session::Driver::DBI::table_name at line 48 of /usr/share/perl5/CGI/Session/Driver/DBI.pm sub unimport { | |||
| 33 | 2 | 0.00001 | 5e-06 | shift; |
| 34 | $^H &= ~ (@_ ? bits(@_) : $default_bits); # spent 0.00002s making 1 calls to strict::bits | |||
| 35 | } | |||
| 36 | ||||
| 37 | 1; | |||
| 38 | __END__ | |||
| 39 |