Profile of version/regex.pm

Filename	/Users/ether/perl5/perlbrew/perls/36.0/lib/5.36.0/version/regex.pm
Statements	Executed 16 statements in 671µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
6	6	1	174µs	174µs	version::regex::::CORE:regcompversion::regex::CORE:regcomp (opcode)
1	1	1	31µs	34µs	version::regex::::BEGIN@3version::regex::BEGIN@3
12	12	1	12µs	12µs	version::regex::::CORE:qrversion::regex::CORE:qr (opcode)
0	0	0	0s	0s	version::regex::::is_laxversion::regex::is_lax
0	0	0	0s	0s	version::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
1					package version::regex;
2
3	2	415µs	2	37µs	# spent 34µs (31+3) within version::regex::BEGIN@3 which was called: # once (31µs+3µs) by experimental::BEGIN@5 at line 3 use strict; # spent 34µs making 1 call to version::regex::BEGIN@3 # spent 3µs making 1 call to strict::import
4
5	1	0s			our $VERSION = 0.9929;
6
7					#--------------------------------------------------------------------------#
8					# Version regexp components
9					#--------------------------------------------------------------------------#
10
11					# Fraction part of a decimal version number. This is a common part of
12					# both strict and lax decimal versions
13
14	1	11µs	1	4µs	my $FRACTION_PART = qr/\.[0-9]+/; # spent 4µs making 1 call to version::regex::CORE:qr
15
16					# First part of either decimal or dotted-decimal strict version number.
17					# Unsigned integer with no leading zeroes (except for zero itself) to
18					# avoid confusion with octal.
19
20	1	3µs	1	1µs	my $STRICT_INTEGER_PART = qr/0\|[1-9][0-9]*/; # spent 1µs making 1 call to version::regex::CORE:qr
21
22					# First part of either decimal or dotted-decimal lax version number.
23					# Unsigned integer, but allowing leading zeros. Always interpreted
24					# as decimal. However, some forms of the resulting syntax give odd
25					# results if used as ordinary Perl expressions, due to how perl treats
26					# octals. E.g.
27					# version->new("010" ) == 10
28					# version->new( 010 ) == 8
29					# version->new( 010.2) == 82 # "8" . "2"
30
31	1	3µs	1	1µs	my $LAX_INTEGER_PART = qr/[0-9]+/; # spent 1µs making 1 call to version::regex::CORE:qr
32
33					# Second and subsequent part of a strict dotted-decimal version number.
34					# Leading zeroes are permitted, and the number is always decimal.
35					# Limited to three digits to avoid overflow when converting to decimal
36					# form and also avoid problematic style with excessive leading zeroes.
37
38	1	2µs	1	0s	my $STRICT_DOTTED_DECIMAL_PART = qr/\.[0-9]{1,3}/; # spent 0s making 1 call to version::regex::CORE:qr
39
40					# Second and subsequent part of a lax dotted-decimal version number.
41					# Leading zeroes are permitted, and the number is always decimal. No
42					# limit on the numerical value or number of digits, so there is the
43					# possibility of overflow when converting to decimal form.
44
45	1	3µs	1	1µs	my $LAX_DOTTED_DECIMAL_PART = qr/\.[0-9]+/; # spent 1µs making 1 call to version::regex::CORE:qr
46
47					# Alpha suffix part of lax version number syntax. Acts like a
48					# dotted-decimal part.
49
50	1	3µs	1	1µs	my $LAX_ALPHA_PART = qr/_[0-9]+/; # spent 1µs making 1 call to version::regex::CORE:qr
51
52					#--------------------------------------------------------------------------#
53					# Strict version regexp definitions
54					#--------------------------------------------------------------------------#
55
56					# Strict decimal version number.
57
58	1	54µs	2	48µs	our $STRICT_DECIMAL_VERSION = # spent 47µs making 1 call to version::regex::CORE:regcomp # spent 1µs making 1 call to version::regex::CORE:qr
59					qr/ $STRICT_INTEGER_PART $FRACTION_PART? /x;
60
61					# Strict dotted-decimal version number. Must have both leading "v" and
62					# at least three parts, to avoid confusion with decimal syntax.
63
64	1	18µs	2	16µs	our $STRICT_DOTTED_DECIMAL_VERSION = # spent 15µs making 1 call to version::regex::CORE:regcomp # spent 1µs making 1 call to version::regex::CORE:qr
65					qr/ v $STRICT_INTEGER_PART $STRICT_DOTTED_DECIMAL_PART{2,} /x;
66
67					# Complete strict version number syntax -- should generally be used
68					# anchored: qr/ \A $STRICT \z /x
69
70	1	29µs	2	25µs	our $STRICT = # spent 25µs making 1 call to version::regex::CORE:regcomp # spent 0s making 1 call to version::regex::CORE:qr
71					qr/ $STRICT_DECIMAL_VERSION \| $STRICT_DOTTED_DECIMAL_VERSION /x;
72
73					#--------------------------------------------------------------------------#
74					# Lax version regexp definitions
75					#--------------------------------------------------------------------------#
76
77					# Lax decimal version number. Just like the strict one except for
78					# allowing an alpha suffix or allowing a leading or trailing
79					# decimal-point
80
81	1	21µs	2	18µs	our $LAX_DECIMAL_VERSION = # spent 17µs making 1 call to version::regex::CORE:regcomp # spent 1µs making 1 call to version::regex::CORE:qr
82					qr/ $LAX_INTEGER_PART (?: $FRACTION_PART \| \. )? $LAX_ALPHA_PART?
83					\|
84					$FRACTION_PART $LAX_ALPHA_PART?
85					/x;
86
87					# Lax dotted-decimal version number. Distinguished by having either
88					# leading "v" or at least three non-alpha parts. Alpha part is only
89					# permitted if there are at least two non-alpha parts. Strangely
90					# enough, without the leading "v", Perl takes .1.2 to mean v0.1.2,
91					# so when there is no "v", the leading part is optional
92
93	1	25µs	2	18µs	our $LAX_DOTTED_DECIMAL_VERSION = # spent 18µs making 1 call to version::regex::CORE:regcomp # spent 0s making 1 call to version::regex::CORE:qr
94					qr/
95					v $LAX_INTEGER_PART (?: $LAX_DOTTED_DECIMAL_PART+ $LAX_ALPHA_PART? )?
96					\|
97					$LAX_INTEGER_PART? $LAX_DOTTED_DECIMAL_PART{2,} $LAX_ALPHA_PART?
98					/x;
99
100					# Complete lax version number syntax -- should generally be used
101					# anchored: qr/ \A $LAX \z /x
102					#
103					# The string 'undef' is a special case to make for easier handling
104					# of return values from ExtUtils::MM->parse_version
105
106	1	60µs	2	53µs	our $LAX = # spent 52µs making 1 call to version::regex::CORE:regcomp # spent 1µs making 1 call to version::regex::CORE:qr
107					qr/ undef \| $LAX_DOTTED_DECIMAL_VERSION \| $LAX_DECIMAL_VERSION /x;
108
109					#--------------------------------------------------------------------------#
110
111					# Preloaded methods go here.
112					sub is_strict { defined $_[0] && $_[0] =~ qr/ \A $STRICT \z /x }
113					sub is_lax { defined $_[0] && $_[0] =~ qr/ \A $LAX \z /x }
114
115	1	24µs			1;

					# spent 12µs within version::regex::CORE:qr which was called 12 times, avg 1µs/call: # once (4µs+0s) by experimental::BEGIN@5 at line 14 # once (1µs+0s) by experimental::BEGIN@5 at line 64 # once (1µs+0s) by experimental::BEGIN@5 at line 58 # once (1µs+0s) by experimental::BEGIN@5 at line 31 # once (1µs+0s) by experimental::BEGIN@5 at line 81 # once (1µs+0s) by experimental::BEGIN@5 at line 45 # once (1µs+0s) by experimental::BEGIN@5 at line 50 # once (1µs+0s) by experimental::BEGIN@5 at line 20 # once (1µs+0s) by experimental::BEGIN@5 at line 106 # once (0s+0s) by experimental::BEGIN@5 at line 70 # once (0s+0s) by experimental::BEGIN@5 at line 93 # once (0s+0s) by experimental::BEGIN@5 at line 38 sub version::regex::CORE:qr; # opcode
					# spent 174µs within version::regex::CORE:regcomp which was called 6 times, avg 29µs/call: # once (52µs+0s) by experimental::BEGIN@5 at line 106 # once (47µs+0s) by experimental::BEGIN@5 at line 58 # once (25µs+0s) by experimental::BEGIN@5 at line 70 # once (18µs+0s) by experimental::BEGIN@5 at line 93 # once (17µs+0s) by experimental::BEGIN@5 at line 81 # once (15µs+0s) by experimental::BEGIN@5 at line 64 sub version::regex::CORE:regcomp; # opcode