Profile of strict.pm

← Index
NYTProf Performance Profile «line view»
For -e
Run on Thu Mar 24 14:41:10 2016
Reported on Thu Mar 24 14:41:17 2016

Filename | /home/s1/perl5/perlbrew/perls/perl-5.22.0/lib/5.22.0/strict.pm
Statements | Executed 16 statements in 297µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 40µs | 40µs | strict::::BEGIN@14strict::BEGIN@14
1 | 1 | 1 | 32µs | 32µs | strict::::CORE:regcompstrict::CORE:regcomp (opcode)
1 | 1 | 1 | 9µs | 9µs | strict::::CORE:matchstrict::CORE:match (opcode)
1 | 1 | 1 | 5µs | 5µs | strict::::importstrict::import
0 | 0 | 0 | 0s | 0s | strict::::__ANON__[:31]strict::__ANON__[:31]
0 | 0 | 0 | 0s | 0s | strict::::__ANON__[:37]strict::__ANON__[:37]
0 | 0 | 0 | 0s | 0s | strict::::bitsstrict::bits
0 | 0 | 0 | 0s | 0s | strict::::unimportstrict::unimport

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 | 500ns |  |  | $strict::VERSION = "1.09";
4 |  |  |  |  |
5 |  |  |  |  | # Verify that we're called correctly so that strictures will work.
6 | 1 | 53µs | 2 | 41µs | unless ( __FILE__ =~ /(^|[\/\\])\Q${\__PACKAGE__}\E\.pmc?$/ ) { # spent 32µs making 1 call to strict::CORE:regcomp # spent 9µs making 1 call to strict::CORE:match
7 |  |  |  |  | # Can't use Carp, since Carp uses us!
8 |  |  |  |  | my (undef, $f, $l) = caller;
9 |  |  |  |  | die("Incorrect use of pragma '${\__PACKAGE__}' at $f line $l.\n");
10 |  |  |  |  | }
11 |  |  |  |  |
12 | 1 | 200ns |  |  | my ( %bitmask, %explicit_bitmask );
13 |  |  |  |  |
14 |  |  |  |  | # spent 40µs within strict::BEGIN@14 which was called: # once (40µs+0s) by JSON::Decode::Regexp::BEGIN@7 at line 38 BEGIN {
15 | 1 | 2µs |  |  | %bitmask = (
16 |  |  |  |  | refs => 0x00000002,
17 |  |  |  |  | subs => 0x00000200,
18 |  |  |  |  | vars => 0x00000400,
19 |  |  |  |  | );
20 |  |  |  |  |
21 | 1 | 800ns |  |  | %explicit_bitmask = (
22 |  |  |  |  | refs => 0x00000020,
23 |  |  |  |  | subs => 0x00000040,
24 |  |  |  |  | vars => 0x00000080,
25 |  |  |  |  | );
26 |  |  |  |  |
27 | 1 | 400ns |  |  | my $bits = 0;
28 | 1 | 5µs |  |  | $bits |= $_ for values %bitmask;
29 |  |  |  |  |
30 | 1 | 200ns |  |  | my $inline_all_bits = $bits;
31 | 1 | 8µs |  |  | *all_bits = sub () { $inline_all_bits };
32 |  |  |  |  |
33 | 1 | 200ns |  |  | $bits = 0;
34 | 1 | 1µs |  |  | $bits |= $_ for values %explicit_bitmask;
35 |  |  |  |  |
36 | 1 | 100ns |  |  | my $inline_all_explicit_bits = $bits;
37 | 1 | 9µs |  |  | *all_explicit_bits = sub () { $inline_all_explicit_bits };
38 | 1 | 201µs | 1 | 40µs | } # spent 40µs making 1 call to strict::BEGIN@14
39 |  |  |  |  |
40 |  |  |  |  | sub bits {
41 |  |  |  |  | my $bits = 0;
42 |  |  |  |  | my @wrong;
43 |  |  |  |  | foreach my $s (@_) {
44 |  |  |  |  | if (exists $bitmask{$s}) {
45 |  |  |  |  | $^H |= $explicit_bitmask{$s};
46 |  |  |  |  |
47 |  |  |  |  | $bits |= $bitmask{$s};
48 |  |  |  |  | }
49 |  |  |  |  | else {
50 |  |  |  |  | push @wrong, $s;
51 |  |  |  |  | }
52 |  |  |  |  | }
53 |  |  |  |  | if (@wrong) {
54 |  |  |  |  | require Carp;
55 |  |  |  |  | Carp::croak("Unknown 'strict' tag(s) '@wrong'");
56 |  |  |  |  | }
57 |  |  |  |  | $bits;
58 |  |  |  |  | }
59 |  |  |  |  |
60 |  |  |  |  | # spent 5µs within strict::import which was called: # once (5µs+0s) by JSON::Decode::Regexp::BEGIN@7 at line 7 of lib/JSON/Decode/Regexp.pm sub import {
61 | 1 | 300ns |  |  | shift;
62 | 1 | 6µs |  |  | $^H |= @_ ? &bits : all_bits | all_explicit_bits;
63 |  |  |  |  | }
64 |  |  |  |  |
65 |  |  |  |  | sub unimport {
66 |  |  |  |  | shift;
67 |  |  |  |  |
68 |  |  |  |  | if (@_) {
69 |  |  |  |  | $^H &= ~&bits;
70 |  |  |  |  | }
71 |  |  |  |  | else {
72 |  |  |  |  | $^H &= ~all_bits;
73 |  |  |  |  | $^H |= all_explicit_bits;
74 |  |  |  |  | }
75 |  |  |  |  | }
76 |  |  |  |  |
77 | 1 | 9µs |  |  | 1;
78 |  |  |  |  | __END__
|  |  |  |  | # spent 9µs within strict::CORE:match which was called: # once (9µs+0s) by JSON::Decode::Regexp::BEGIN@7 at line 6 sub strict::CORE:match; # opcode
|  |  |  |  | # spent 32µs within strict::CORE:regcomp which was called: # once (32µs+0s) by JSON::Decode::Regexp::BEGIN@7 at line 6 sub strict::CORE:regcomp; # opcode