Profile of strict.pm

Filename	/usr/share/perl/5.26/strict.pm
Statements	Executed 77 statements in 579µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
5	1	1	62µs	62µs	strict::::bitsstrict::bits
1	1	1	61µs	71µs	strict::::BEGIN@7strict::BEGIN@7
5	5	3	45µs	106µs	strict::::unimportstrict::unimport
4	4	4	20µs	20µs	strict::::importstrict::import
1	1	1	10µs	10µs	strict::::CORE:matchstrict::CORE:match (opcode)
0	0	0	0s	0s	strict::::__ANON__[:31]strict::__ANON__[:31]
0	0	0	0s	0s	strict::::__ANON__[:37]strict::__ANON__[:37]

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

Line	State ments	Time on line	Calls	Time in subs	Code
1					package strict;
2
3	1	700ns			$strict::VERSION = "1.11";
4
5	1	300ns			my ( %bitmask, %explicit_bitmask );
6
7					# spent 71µs (61+10) within strict::BEGIN@7 which was called: # once (61µs+10µs) by main::BEGIN@21 at line 38 BEGIN {
8					# Verify that we're called correctly so that strictures will work.
9					# Can't use Carp, since Carp uses us!
10					# see also warnings.pm.
11	1	21µs	1	10µs	die sprintf "Incorrect use of pragma '%s' at %s line %d.\n", __PACKAGE__, +(caller)[1,2] # spent 10µs making 1 call to strict::CORE:match
12					if __FILE__ !~ ( '(?x) \b '.__PACKAGE__.' \.pmc? \z' )
13					&& __FILE__ =~ ( '(?x) \b (?i:'.__PACKAGE__.') \.pmc? \z' );
14
15	1	3µs			%bitmask = (
16					refs => 0x00000002,
17					subs => 0x00000200,
18					vars => 0x00000400,
19					);
20
21	1	1µs			%explicit_bitmask = (
22					refs => 0x00000020,
23					subs => 0x00000040,
24					vars => 0x00000080,
25					);
26
27	1	600ns			my $bits = 0;
28	1	5µs			$bits \|= $_ for values %bitmask;
29
30	1	400ns			my $inline_all_bits = $bits;
31	1	14µs			*all_bits = sub () { $inline_all_bits };
32
33	1	300ns			$bits = 0;
34	1	2µs			$bits \|= $_ for values %explicit_bitmask;
35
36	1	200ns			my $inline_all_explicit_bits = $bits;
37	1	16µs			*all_explicit_bits = sub () { $inline_all_explicit_bits };
38	1	352µs	1	71µs	} # spent 71µs making 1 call to strict::BEGIN@7
39
40					# spent 62µs within strict::bits which was called 5 times, avg 12µs/call: # 5 times (62µs+0s) by strict::unimport at line 69, avg 12µs/call sub bits {
41	5	3µs			my $bits = 0;
42	5	2µs			my @wrong;
43	5	5µs			foreach my $s (@_) {
44	5	8µs			if (exists $bitmask{$s}) {
45	5	27µs			$^H \|= $explicit_bitmask{$s};
46
47	5	4µs			$bits \|= $bitmask{$s};
48					}
49					else {
50					push @wrong, $s;
51					}
52					}
53	5	4µs			if (@wrong) {
54					require Carp;
55					Carp::croak("Unknown 'strict' tag(s) '@wrong'");
56					}
57	5	29µs			$bits;
58					}
59
60					# spent 20µs within strict::import which was called 4 times, avg 5µs/call: # once (7µs+0s) by main::BEGIN@21 at line 21 of /homes/dcw/src/perl/weeklychallenge/perlweeklychallenge-club/challenge-025/duncan-c-white/perl5/ch-1.pl # once (4µs+0s) by List::Util::BEGIN@9 at line 9 of List/Util.pm # once (4µs+0s) by Scalar::Util::BEGIN@9 at line 9 of Scalar/Util.pm # once (4µs+0s) by Carp::BEGIN@4 at line 4 of Carp.pm sub import {
61	4	2µs			shift;
62	4	36µs			$^H \|= @_ ? &bits : all_bits \| all_explicit_bits;
63					}
64
65					# spent 106µs (45+62) within strict::unimport which was called 5 times, avg 21µs/call: # once (13µs+28µs) by Carp::BEGIN@132 at line 132 of Carp.pm # once (10µs+9µs) by Carp::BEGIN@592 at line 592 of Carp.pm # once (8µs+9µs) by List::Util::BEGIN@31 at line 31 of List/Util.pm # once (7µs+8µs) by Carp::BEGIN@612 at line 612 of Carp.pm # once (7µs+7µs) by Function::Parameters::BEGIN@80 at line 80 of Function/Parameters.pm sub unimport {
66	5	2µs			shift;
67
68	5	21µs			if (@_) {
69	5	12µs	5	62µs	$^H &= ~&bits; # spent 62µs making 5 calls to strict::bits, avg 12µs/call
70					}
71					else {
72					$^H &= ~all_bits;
73					$^H \|= all_explicit_bits;
74					}
75					}
76
77	1	7µs			1;
78					__END__

					# spent 10µs within strict::CORE:match which was called: # once (10µs+0s) by strict::BEGIN@7 at line 11 sub strict::CORE:match; # opcode