Profile of warnings/register.pm

Filename	/System/Library/Perl/5.12/warnings/register.pm
Statements	Executed 69 statements in 87µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	77µs	87µs	warnings::register::::importwarnings::register::import
2	2	1	10µs	10µs	warnings::register::::mkMaskwarnings::register::mkMask

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package warnings::register;
2
3	1	1µs			our $VERSION = '1.01';
4
5					=pod
6
7					=head1 NAME
8
9					warnings::register - warnings import function
10
11					=head1 SYNOPSIS
12
13					use warnings::register;
14
15					=head1 DESCRIPTION
16
17					Creates a warnings category with the same name as the current package.
18
19					See L<warnings> and L<perllexwarn> for more information on this module's
20					usage.
21
22					=cut
23
24	1	600ns			require warnings;
25
26					sub mkMask
27					# spent 10µs within warnings::register::mkMask which was called 2 times, avg 5µs/call: # once (7µs+0s) by warnings::register::import at line 40 # once (3µs+0s) by warnings::register::import at line 46 {
28	8	20µs			my ($bit) = @_;
29					my $mask = "";
30
31					vec($mask, $bit, 1) = 1;
32					return $mask;
33					}
34
35					sub import
36					# spent 87µs (77+10) within warnings::register::import which was called: # once (77µs+10µs) by overload::BEGIN@145 at line 145 of overload.pm {
37	3	11µs			shift;
38					my $package = (caller(0))[0];
39	6	22µs			if (! defined $warnings::Bits{$package}) {
40			1	7µs	$warnings::Bits{$package} = mkMask($warnings::LAST_BIT); # spent 7µs making 1 call to warnings::register::mkMask
41					vec($warnings::Bits{'all'}, $warnings::LAST_BIT, 1) = 1;
42					$warnings::Offsets{$package} = $warnings::LAST_BIT ++;
43					foreach my $k (keys %warnings::Bits) {
44	49	27µs			vec($warnings::Bits{$k}, $warnings::LAST_BIT, 1) = 0;
45					}
46			1	3µs	$warnings::DeadBits{$package} = mkMask($warnings::LAST_BIT); # spent 3µs making 1 call to warnings::register::mkMask
47					vec($warnings::DeadBits{'all'}, $warnings::LAST_BIT++, 1) = 1;
48					}
49					}
50
51	1	6µs			1;