← Index
NYTProf Performance Profile   « line view »
For /Users/timbo/perl5/perlbrew/perls/perl-5.18.2/bin/perlcritic
  Run on Sat Mar 19 22:12:22 2016
Reported on Sat Mar 19 22:14:11 2016

Filename/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/version.pm
StatementsExecuted 68 statements in 773┬Ás
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
289332.20ms2.83msversion::::(<=>version::(<=> (xsub)
29544994┬Ás994┬Ásversion::::(boolversion::(bool (xsub)
14211732┬Ás732┬Ásversion::::parseversion::parse (xsub)
14655649┬Ás649┬Ásversion::::newversion::new (xsub)
66182┬Ás82┬Ásversion::::CORE:regcompversion::CORE:regcomp (opcode)
44465┬Ás65┬Ásversion::::importversion::import
11114┬Ás14┬Ásversion::::BEGIN@4version::BEGIN@4
1212111┬Ás11┬Ásversion::::CORE:qrversion::CORE:qr (opcode)
1118┬Ás18┬Ásversion::::BEGIN@119version::BEGIN@119
1118┬Ás86┬Ásversion::::BEGIN@7version::BEGIN@7
1117┬Ás11┬Ásversion::::__ANON__[:151]version::__ANON__[:151]
1117┬Ás18┬Ásversion::::BEGIN@5version::BEGIN@5
1114┬Ás4┬Ásversion::::(cmpversion::(cmp (xsub)
1114┬Ás4┬Ásversion::::qvversion::qv (xsub)
0000s0sversion::::__ANON__[:145]version::__ANON__[:145]
0000s0sversion::::is_laxversion::is_lax
0000s0sversion::::is_strictversion::is_strict
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#!perl -w
2package version;
3
4242┬Ás114┬Ás
# spent 14┬Ás within version::BEGIN@4 which was called: # once (14┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 4
use 5.005_04;
# spent 14┬Ás making 1 call to version::BEGIN@4
5222┬Ás228┬Ás
# spent 18┬Ás (7+11) within version::BEGIN@5 which was called: # once (7┬Ás+11┬Ás) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 5
use strict;
# spent 18┬Ás making 1 call to version::BEGIN@5 # spent 11┬Ás making 1 call to strict::import
6
72189┬Ás2165┬Ás
# spent 86┬Ás (8+79) within version::BEGIN@7 which was called: # once (8┬Ás+79┬Ás) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 7
use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
# spent 86┬Ás making 1 call to version::BEGIN@7 # spent 79┬Ás making 1 call to vars::import
8
91300ns$VERSION = 0.9902;
10
111300ns$CLASS = 'version';
12
13#--------------------------------------------------------------------------#
14# Version regexp components
15#--------------------------------------------------------------------------#
16
17# Fraction part of a decimal version number. This is a common part of
18# both strict and lax decimal versions
19
2018┬Ás12┬Ásmy $FRACTION_PART = qr/\.[0-9]+/;
# spent 2┬Ás making 1 call to version::CORE:qr
21
22# First part of either decimal or dotted-decimal strict version number.
23# Unsigned integer with no leading zeroes (except for zero itself) to
24# avoid confusion with octal.
25
2614┬Ás1900nsmy $STRICT_INTEGER_PART = qr/0|[1-9][0-9]*/;
# spent 900ns making 1 call to version::CORE:qr
27
28# First part of either decimal or dotted-decimal lax version number.
29# Unsigned integer, but allowing leading zeros. Always interpreted
30# as decimal. However, some forms of the resulting syntax give odd
31# results if used as ordinary Perl expressions, due to how perl treats
32# octals. E.g.
33# version->new("010" ) == 10
34# version->new( 010 ) == 8
35# version->new( 010.2) == 82 # "8" . "2"
36
3713┬Ás1700nsmy $LAX_INTEGER_PART = qr/[0-9]+/;
# spent 700ns making 1 call to version::CORE:qr
38
39# Second and subsequent part of a strict dotted-decimal version number.
40# Leading zeroes are permitted, and the number is always decimal.
41# Limited to three digits to avoid overflow when converting to decimal
42# form and also avoid problematic style with excessive leading zeroes.
43
4413┬Ás1700nsmy $STRICT_DOTTED_DECIMAL_PART = qr/\.[0-9]{1,3}/;
# spent 700ns making 1 call to version::CORE:qr
45
46# Second and subsequent part of a lax dotted-decimal version number.
47# Leading zeroes are permitted, and the number is always decimal. No
48# limit on the numerical value or number of digits, so there is the
49# possibility of overflow when converting to decimal form.
50
5113┬Ás1700nsmy $LAX_DOTTED_DECIMAL_PART = qr/\.[0-9]+/;
# spent 700ns making 1 call to version::CORE:qr
52
53# Alpha suffix part of lax version number syntax. Acts like a
54# dotted-decimal part.
55
5613┬Ás1700nsmy $LAX_ALPHA_PART = qr/_[0-9]+/;
# spent 700ns making 1 call to version::CORE:qr
57
58#--------------------------------------------------------------------------#
59# Strict version regexp definitions
60#--------------------------------------------------------------------------#
61
62# Strict decimal version number.
63
64120┬Ás212┬Ásmy $STRICT_DECIMAL_VERSION =
# spent 12┬Ás making 1 call to version::CORE:regcomp # spent 900ns making 1 call to version::CORE:qr
65 qr/ $STRICT_INTEGER_PART $FRACTION_PART? /x;
66
67# Strict dotted-decimal version number. Must have both leading "v" and
68# at least three parts, to avoid confusion with decimal syntax.
69
70119┬Ás214┬Ásmy $STRICT_DOTTED_DECIMAL_VERSION =
# spent 13┬Ás making 1 call to version::CORE:regcomp # spent 900ns making 1 call to version::CORE:qr
71 qr/ v $STRICT_INTEGER_PART $STRICT_DOTTED_DECIMAL_PART{2,} /x;
72
73# Complete strict version number syntax -- should generally be used
74# anchored: qr/ \A $STRICT \z /x
75
76119┬Ás213┬Ás$STRICT =
# spent 12┬Ás making 1 call to version::CORE:regcomp # spent 1┬Ás making 1 call to version::CORE:qr
77 qr/ $STRICT_DECIMAL_VERSION | $STRICT_DOTTED_DECIMAL_VERSION /x;
78
79#--------------------------------------------------------------------------#
80# Lax version regexp definitions
81#--------------------------------------------------------------------------#
82
83# Lax decimal version number. Just like the strict one except for
84# allowing an alpha suffix or allowing a leading or trailing
85# decimal-point
86
87120┬Ás214┬Ásmy $LAX_DECIMAL_VERSION =
# spent 14┬Ás making 1 call to version::CORE:regcomp # spent 900ns making 1 call to version::CORE:qr
88 qr/ $LAX_INTEGER_PART (?: \. | $FRACTION_PART $LAX_ALPHA_PART? )?
89 |
90 $FRACTION_PART $LAX_ALPHA_PART?
91 /x;
92
93# Lax dotted-decimal version number. Distinguished by having either
94# leading "v" or at least three non-alpha parts. Alpha part is only
95# permitted if there are at least two non-alpha parts. Strangely
96# enough, without the leading "v", Perl takes .1.2 to mean v0.1.2,
97# so when there is no "v", the leading part is optional
98
99121┬Ás213┬Ásmy $LAX_DOTTED_DECIMAL_VERSION =
# spent 12┬Ás making 1 call to version::CORE:regcomp # spent 1┬Ás making 1 call to version::CORE:qr
100 qr/
101 v $LAX_INTEGER_PART (?: $LAX_DOTTED_DECIMAL_PART+ $LAX_ALPHA_PART? )?
102 |
103 $LAX_INTEGER_PART? $LAX_DOTTED_DECIMAL_PART{2,} $LAX_ALPHA_PART?
104 /x;
105
106# Complete lax version number syntax -- should generally be used
107# anchored: qr/ \A $LAX \z /x
108#
109# The string 'undef' is a special case to make for easier handling
110# of return values from ExtUtils::MM->parse_version
111
112129┬Ás221┬Ás$LAX =
# spent 20┬Ás making 1 call to version::CORE:regcomp # spent 800ns making 1 call to version::CORE:qr
113 qr/ undef | $LAX_DECIMAL_VERSION | $LAX_DOTTED_DECIMAL_VERSION /x;
114
115#--------------------------------------------------------------------------#
116
117# Preloaded methods go here.
118
# spent 65┬Ás within version::import which was called 4 times, avg 16┬Ás/call: # once (18┬Ás+0s) by Perl::Critic::Policy::InputOutput::ProhibitTwoArgOpen::BEGIN@16 at line 16 of Perl/Critic/Policy/InputOutput/ProhibitTwoArgOpen.pm # once (17┬Ás+0s) by Perl::Critic::Policy::TestingAndDebugging::RequireUseStrict::BEGIN@14 at line 14 of Perl/Critic/Policy/TestingAndDebugging/RequireUseStrict.pm # once (16┬Ás+0s) by Perl::Critic::Document::BEGIN@18 at line 18 of Perl/Critic/Document.pm # once (13┬Ás+0s) by Perl::Critic::Policy::InputOutput::RequireEncodingWithUTF8Layer::BEGIN@16 at line 16 of Perl/Critic/Policy/InputOutput/RequireEncodingWithUTF8Layer.pm
sub import {
1192269┬Ás229┬Ás
# spent 18┬Ás (8+10) within version::BEGIN@119 which was called: # once (8┬Ás+10┬Ás) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 119
no strict 'refs';
# spent 18┬Ás making 1 call to version::BEGIN@119 # spent 10┬Ás making 1 call to strict::unimport
12044┬Ás my ($class) = shift;
121
122 # Set up any derived class
12342┬Ás unless ($class eq 'version') {
124 local $^W;
125 *{$class.'::declare'} = \&version::declare;
126 *{$class.'::qv'} = \&version::qv;
127 }
128
12941┬Ás my %args;
13042┬Ás if (@_) { # any remaining terms are arguments
131 map { $args{$_} = 1 } @_
132 }
133 else { # no parameters at all on use line
13447┬Ás %args =
135 (
136 qv => 1,
137 'UNIVERSAL::VERSION' => 1,
138 );
139 }
140
14143┬Ás my $callpkg = caller();
142
14342┬Ás if (exists($args{declare})) {
144 *{$callpkg.'::declare'} =
145 sub {return $class->declare(shift) }
146 unless defined(&{$callpkg.'::declare'});
147 }
148
149427┬Ás if (exists($args{qv})) {
150112┬Ás14┬Ás *{$callpkg.'::qv'} =
# spent 4┬Ás making 1 call to version::qv
151
# spent 11┬Ás (7+4) within version::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/version.pm:151] which was called: # once (7┬Ás+4┬Ás) by Module::Pluggable::Object::_require at line 28 of Perl/Critic/Policy/TestingAndDebugging/RequireUseStrict.pm
sub {return $class->qv(shift) }
152 unless defined(&{$callpkg.'::qv'});
153 }
154
15542┬Ás if (exists($args{'VERSION'})) {
156 *{$callpkg.'::VERSION'} = \&version::_VERSION;
157 }
158
15942┬Ás if (exists($args{'is_strict'})) {
160 *{$callpkg.'::is_strict'} = \&version::is_strict
161 unless defined(&{$callpkg.'::is_strict'});
162 }
163
164418┬Ás if (exists($args{'is_lax'})) {
165 *{$callpkg.'::is_lax'} = \&version::is_lax
166 unless defined(&{$callpkg.'::is_lax'});
167 }
168}
169
170sub is_strict { defined $_[0] && $_[0] =~ qr/ \A $STRICT \z /x }
171sub is_lax { defined $_[0] && $_[0] =~ qr/ \A $LAX \z /x }
172
173117┬Ás1;
 
# spent 2.83ms (2.20+620┬Ás) within version::(<=> which was called 289 times, avg 10┬Ás/call: # 142 times (1.16ms+307┬Ás) by Perl::Critic::Policy::TestingAndDebugging::RequireUseStrict::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Policy/TestingAndDebugging/RequireUseStrict.pm:116] at line 112 of Perl/Critic/Policy/TestingAndDebugging/RequireUseStrict.pm, avg 10┬Ás/call # 142 times (1.01ms+303┬Ás) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::prepare_to_scan_document at line 42 of Perl/Critic/Policy/Variables/RequireLexicalLoopIterators.pm, avg 9┬Ás/call # 5 times (35┬Ás+10┬Ás) by Perl::Critic::Policy::InputOutput::ProhibitTwoArgOpen::violates at line 48 of Perl/Critic/Policy/InputOutput/ProhibitTwoArgOpen.pm, avg 9┬Ás/call
sub version::(<=>; # xsub
# spent 994┬Ás within version::(bool which was called 295 times, avg 3┬Ás/call: # 147 times (590┬Ás+0s) by Perl::Critic::Document::highest_explicit_perl_version at line 386 of Perl/Critic/Document.pm, avg 4┬Ás/call # 142 times (385┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::prepare_to_scan_document at line 42 of Perl/Critic/Policy/Variables/RequireLexicalLoopIterators.pm, avg 3┬Ás/call # 5 times (13┬Ás+0s) by Perl::Critic::Policy::InputOutput::ProhibitTwoArgOpen::violates at line 48 of Perl/Critic/Policy/InputOutput/ProhibitTwoArgOpen.pm, avg 3┬Ás/call # once (7┬Ás+0s) by Errno::BEGIN@8 at line 59 of Config.pm
sub version::(bool; # xsub
# spent 4┬Ás within version::(cmp which was called: # once (4┬Ás+0s) by Errno::BEGIN@8 at line 62 of Config.pm
sub version::(cmp; # xsub
# spent 11┬Ás within version::CORE:qr which was called 12 times, avg 908ns/call: # once (2┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 20 # once (1┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 99 # once (1┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 76 # once (900ns+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 26 # once (900ns+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 70 # once (900ns+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 64 # once (900ns+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 87 # once (800ns+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 112 # once (700ns+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 51 # once (700ns+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 37 # once (700ns+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 56 # once (700ns+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 44
sub version::CORE:qr; # opcode
# spent 82┬Ás within version::CORE:regcomp which was called 6 times, avg 14┬Ás/call: # once (20┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 112 # once (14┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 87 # once (13┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 70 # once (12┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 76 # once (12┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 99 # once (12┬Ás+0s) by Perl::Critic::Policy::Variables::RequireLexicalLoopIterators::BEGIN@14 at line 64
sub version::CORE:regcomp; # opcode
# spent 649┬Ás within version::new which was called 146 times, avg 4┬Ás/call: # 142 times (625┬Ás+0s) by Perl::Critic::Document::highest_explicit_perl_version at line 375 of Perl/Critic/Document.pm, avg 4┬Ás/call # once (6┬Ás+0s) by Module::Pluggable::Object::_require at line 30 of Perl/Critic/Policy/InputOutput/ProhibitTwoArgOpen.pm # once (6┬Ás+0s) by Module::Pluggable::Object::_require at line 28 of Perl/Critic/Policy/TestingAndDebugging/RequireUseWarnings.pm # once (6┬Ás+0s) by Module::Pluggable::Object::_require at line 26 of Perl/Critic/Policy/Variables/RequireLexicalLoopIterators.pm # once (6┬Ás+0s) by Module::Pluggable::Object::_require at line 27 of Perl/Critic/Policy/BuiltinFunctions/ProhibitLvalueSubstr.pm
sub version::new; # xsub
# spent 732┬Ás within version::parse which was called 142 times, avg 5┬Ás/call: # 142 times (732┬Ás+0s) by Perl::Critic::Policy::TestingAndDebugging::RequireUseStrict::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/site_perl/5.18.2/Perl/Critic/Policy/TestingAndDebugging/RequireUseStrict.pm:116] at line 110 of Perl/Critic/Policy/TestingAndDebugging/RequireUseStrict.pm, avg 5┬Ás/call
sub version::parse; # xsub
# spent 4┬Ás within version::qv which was called: # once (4┬Ás+0s) by version::__ANON__[/Users/timbo/perl5/perlbrew/perls/perl-5.18.2/lib/5.18.2/version.pm:151] at line 150
sub version::qv; # xsub