| File | /usr/share/perl/5.8/warnings/register.pm | Statements Executed | 134 | Total Time | 0.001316 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine | |
|---|---|---|---|---|---|---|
| 2 | 2 | 2 | 0.00037 | 0.00046 | warnings::register:: | import |
| 4 | 2 | 1 | 9.7e-5 | 9.7e-5 | warnings::register:: | mkMask |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | package warnings::register; | |||
| 2 | ||||
| 3 | 1 | 2.0e-6 | 2.0e-6 | our $VERSION = '1.01'; |
| 4 | ||||
| 5 | 1 | 0.00087 | 0.00087 | require warnings; |
| 6 | ||||
| 7 | sub mkMask | |||
| 8 | { | |||
| 9 | 16 | 3.6e-5 | 2.3e-6 | my ($bit) = @_; |
| 10 | my $mask = ""; | |||
| 11 | ||||
| 12 | vec($mask, $bit, 1) = 1; | |||
| 13 | return $mask; | |||
| 14 | } | |||
| 15 | ||||
| 16 | sub import | |||
| 17 | # spent 463µs (366+97) within warnings::register::import which was called 2 times, avg 232µs/call:
# once (178µs+69µs) at line 7 of /usr/share/perl/5.8/vars.pm
# once (188µs+28µs) at line 7 of /usr/lib/perl/5.8/Socket.pm | |||
| 18 | 115 | 0.00040 | 3.5e-6 | shift; |
| 19 | my $package = (caller(0))[0]; | |||
| 20 | if (! defined $warnings::Bits{$package}) { | |||
| 21 | $warnings::Bits{$package} = mkMask($warnings::LAST_BIT); # spent 33µs making 2 calls to warnings::register::mkMask, avg 16µs/call | |||
| 22 | vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1; | |||
| 23 | $warnings::Offsets{$package} = $warnings::LAST_BIT ++; | |||
| 24 | foreach my $k (keys %warnings::Bits) { | |||
| 25 | vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0; | |||
| 26 | } | |||
| 27 | $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT); # spent 64µs making 2 calls to warnings::register::mkMask, avg 32µs/call | |||
| 28 | vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1; | |||
| 29 | } | |||
| 30 | } | |||
| 31 | ||||
| 32 | 1 | 4.0e-6 | 4.0e-6 | 1; |