← Index
NYTProf Performance Profile   « line view »
For /usr/local/bin/sa-learn
  Run on Sun Nov 5 03:09:29 2017
Reported on Mon Nov 6 13:20:46 2017

Filename/usr/local/lib/perl5/5.24/version/regex.pm
StatementsExecuted 18 statements in 1.22ms
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
661257µs257µsversion::regex::::CORE:regcompversion::regex::CORE:regcomp (opcode)
1212143µs43µsversion::regex::::CORE:qrversion::regex::CORE:qr (opcode)
11137µs46µsversion::regex::::BEGIN@3version::regex::BEGIN@3
11119µs174µsversion::regex::::BEGIN@5version::regex::BEGIN@5
0000s0sversion::regex::::is_laxversion::regex::is_lax
0000s0sversion::regex::::is_strictversion::regex::is_strict
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package version::regex;
2
3266µs254µs
# spent 46µs (37+8) within version::regex::BEGIN@3 which was called: # once (37µs+8µs) by Net::Patricia::BEGIN@31 at line 3
use strict;
# spent 46µs making 1 call to version::regex::BEGIN@3 # spent 8µs making 1 call to strict::import
4
52678µs2330µs
# spent 174µs (19+155) within version::regex::BEGIN@5 which was called: # once (19µs+155µs) by Net::Patricia::BEGIN@31 at line 5
use vars qw($VERSION $CLASS $STRICT $LAX);
# spent 174µs making 1 call to version::regex::BEGIN@5 # spent 155µs making 1 call to vars::import
6
712µs$VERSION = 0.9916;
8
9#--------------------------------------------------------------------------#
10# Version regexp components
11#--------------------------------------------------------------------------#
12
13# Fraction part of a decimal version number. This is a common part of
14# both strict and lax decimal versions
15
16121µs17µsmy $FRACTION_PART = qr/\.[0-9]+/;
# spent 7µs making 1 call to version::regex::CORE:qr
17
18# First part of either decimal or dotted-decimal strict version number.
19# Unsigned integer with no leading zeroes (except for zero itself) to
20# avoid confusion with octal.
21
22111µs13µsmy $STRICT_INTEGER_PART = qr/0|[1-9][0-9]*/;
# spent 3µs making 1 call to version::regex::CORE:qr
23
24# First part of either decimal or dotted-decimal lax version number.
25# Unsigned integer, but allowing leading zeros. Always interpreted
26# as decimal. However, some forms of the resulting syntax give odd
27# results if used as ordinary Perl expressions, due to how perl treats
28# octals. E.g.
29# version->new("010" ) == 10
30# version->new( 010 ) == 8
31# version->new( 010.2) == 82 # "8" . "2"
32
33110µs13µsmy $LAX_INTEGER_PART = qr/[0-9]+/;
# spent 3µs making 1 call to version::regex::CORE:qr
34
35# Second and subsequent part of a strict dotted-decimal version number.
36# Leading zeroes are permitted, and the number is always decimal.
37# Limited to three digits to avoid overflow when converting to decimal
38# form and also avoid problematic style with excessive leading zeroes.
39
40111µs14µsmy $STRICT_DOTTED_DECIMAL_PART = qr/\.[0-9]{1,3}/;
# spent 4µs making 1 call to version::regex::CORE:qr
41
42# Second and subsequent part of a lax dotted-decimal version number.
43# Leading zeroes are permitted, and the number is always decimal. No
44# limit on the numerical value or number of digits, so there is the
45# possibility of overflow when converting to decimal form.
46
47110µs13µsmy $LAX_DOTTED_DECIMAL_PART = qr/\.[0-9]+/;
# spent 3µs making 1 call to version::regex::CORE:qr
48
49# Alpha suffix part of lax version number syntax. Acts like a
50# dotted-decimal part.
51
5219µs13µsmy $LAX_ALPHA_PART = qr/_[0-9]+/;
# spent 3µs making 1 call to version::regex::CORE:qr
53
54#--------------------------------------------------------------------------#
55# Strict version regexp definitions
56#--------------------------------------------------------------------------#
57
58# Strict decimal version number.
59
60154µs237µsmy $STRICT_DECIMAL_VERSION =
# spent 34µs making 1 call to version::regex::CORE:regcomp # spent 3µs making 1 call to version::regex::CORE:qr
61 qr/ $STRICT_INTEGER_PART $FRACTION_PART? /x;
62
63# Strict dotted-decimal version number. Must have both leading "v" and
64# at least three parts, to avoid confusion with decimal syntax.
65
66150µs236µsmy $STRICT_DOTTED_DECIMAL_VERSION =
# spent 33µs making 1 call to version::regex::CORE:regcomp # spent 4µs making 1 call to version::regex::CORE:qr
67 qr/ v $STRICT_INTEGER_PART $STRICT_DOTTED_DECIMAL_PART{2,} /x;
68
69# Complete strict version number syntax -- should generally be used
70# anchored: qr/ \A $STRICT \z /x
71
72157µs243µs$STRICT =
# spent 40µs making 1 call to version::regex::CORE:regcomp # spent 3µs making 1 call to version::regex::CORE:qr
73 qr/ $STRICT_DECIMAL_VERSION | $STRICT_DOTTED_DECIMAL_VERSION /x;
74
75#--------------------------------------------------------------------------#
76# Lax version regexp definitions
77#--------------------------------------------------------------------------#
78
79# Lax decimal version number. Just like the strict one except for
80# allowing an alpha suffix or allowing a leading or trailing
81# decimal-point
82
83160µs246µsmy $LAX_DECIMAL_VERSION =
# spent 43µs making 1 call to version::regex::CORE:regcomp # spent 3µs making 1 call to version::regex::CORE:qr
84 qr/ $LAX_INTEGER_PART (?: \. | $FRACTION_PART $LAX_ALPHA_PART? )?
85 |
86 $FRACTION_PART $LAX_ALPHA_PART?
87 /x;
88
89# Lax dotted-decimal version number. Distinguished by having either
90# leading "v" or at least three non-alpha parts. Alpha part is only
91# permitted if there are at least two non-alpha parts. Strangely
92# enough, without the leading "v", Perl takes .1.2 to mean v0.1.2,
93# so when there is no "v", the leading part is optional
94
95154µs240µsmy $LAX_DOTTED_DECIMAL_VERSION =
# spent 36µs making 1 call to version::regex::CORE:regcomp # spent 3µs making 1 call to version::regex::CORE:qr
96 qr/
97 v $LAX_INTEGER_PART (?: $LAX_DOTTED_DECIMAL_PART+ $LAX_ALPHA_PART? )?
98 |
99 $LAX_INTEGER_PART? $LAX_DOTTED_DECIMAL_PART{2,} $LAX_ALPHA_PART?
100 /x;
101
102# Complete lax version number syntax -- should generally be used
103# anchored: qr/ \A $LAX \z /x
104#
105# The string 'undef' is a special case to make for easier handling
106# of return values from ExtUtils::MM->parse_version
107
108190µs275µs$LAX =
# spent 71µs making 1 call to version::regex::CORE:regcomp # spent 4µs making 1 call to version::regex::CORE:qr
109 qr/ undef | $LAX_DECIMAL_VERSION | $LAX_DOTTED_DECIMAL_VERSION /x;
110
111#--------------------------------------------------------------------------#
112
113# Preloaded methods go here.
114sub is_strict { defined $_[0] && $_[0] =~ qr/ \A $STRICT \z /x }
115sub is_lax { defined $_[0] && $_[0] =~ qr/ \A $LAX \z /x }
116
117140µs1;
 
# spent 43µs within version::regex::CORE:qr which was called 12 times, avg 4µs/call: # once (7µs+0s) by Net::Patricia::BEGIN@31 at line 16 # once (4µs+0s) by Net::Patricia::BEGIN@31 at line 40 # once (4µs+0s) by Net::Patricia::BEGIN@31 at line 108 # once (4µs+0s) by Net::Patricia::BEGIN@31 at line 66 # once (3µs+0s) by Net::Patricia::BEGIN@31 at line 95 # once (3µs+0s) by Net::Patricia::BEGIN@31 at line 22 # once (3µs+0s) by Net::Patricia::BEGIN@31 at line 60 # once (3µs+0s) by Net::Patricia::BEGIN@31 at line 83 # once (3µs+0s) by Net::Patricia::BEGIN@31 at line 33 # once (3µs+0s) by Net::Patricia::BEGIN@31 at line 72 # once (3µs+0s) by Net::Patricia::BEGIN@31 at line 47 # once (3µs+0s) by Net::Patricia::BEGIN@31 at line 52
sub version::regex::CORE:qr; # opcode
# spent 257µs within version::regex::CORE:regcomp which was called 6 times, avg 43µs/call: # once (71µs+0s) by Net::Patricia::BEGIN@31 at line 108 # once (43µs+0s) by Net::Patricia::BEGIN@31 at line 83 # once (40µs+0s) by Net::Patricia::BEGIN@31 at line 72 # once (36µs+0s) by Net::Patricia::BEGIN@31 at line 95 # once (34µs+0s) by Net::Patricia::BEGIN@31 at line 60 # once (33µs+0s) by Net::Patricia::BEGIN@31 at line 66
sub version::regex::CORE:regcomp; # opcode
Report produced by the NYTProf 6.04 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.