← Index
Performance Profile   « block view • line view • sub view »
For t/test-parsing
  Run on Sun Nov 14 09:49:57 2010
Reported on Sun Nov 14 09:50:10 2010

File /usr/share/perl/5.10/warnings/register.pm
Statements Executed 265
Total Time 0.0004041 seconds
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
444356µs424µswarnings::register::::importwarnings::register::import
82168µs68µswarnings::register::::mkMaskwarnings::register::mkMask
LineStmts.Exclusive
Time
Avg.Code
1package warnings::register;
2
31800ns800nsour $VERSION = '1.01';
4
51500ns500nsrequire warnings;
6
7sub mkMask
8
# spent 68µs within warnings::register::mkMask which was called 8 times, avg 9µs/call: # 4 times (40µs+0s) by warnings::register::import at line 21, avg 10µs/call # 4 times (28µs+0s) by warnings::register::import at line 27, avg 7µs/call
{
93244µs1µs my ($bit) = @_;
10 my $mask = "";
11
12 vec($mask, $bit, 1) = 1;
13 return $mask;
14}
15
16sub import
17
# spent 424µs (356+68) within warnings::register::import which was called 4 times, avg 106µs/call: # once (103µs+15µs) by Tie::Hash::BEGIN at line 6 of /usr/share/perl/5.10/Tie/Hash.pm # once (88µs+22µs) at line 7 of /usr/share/perl/5.10/vars.pm # once (84µs+17µs) by overload::BEGIN at line 138 of /usr/share/perl/5.10/overload.pm # once (82µs+14µs) at line 4 of /usr/share/perl/5.10/constant.pm
{
181235µs3µs shift;
19 my $package = (caller(0))[0];
2024120µs5µs if (! defined $warnings::Bits{$package}) {
21 $warnings::Bits{$package} = mkMask($warnings::LAST_BIT);
# spent 40µs making 4 calls to warnings::register::mkMask, avg 10µ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) {
25194198µs1µs vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
26 }
27 $warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT);
# spent 28µs making 4 calls to warnings::register::mkMask, avg 7µs/call
28 vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1;
29 }
30}
31
3215µs5µs1;