Profile of version/regex.pm

Filename	/usr/share/perl/5.20/version/regex.pm
Statements	Executed 18 statements in 435µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
6	6	1	89µs	89µs	version::regex::::CORE:regcompversion::regex::CORE:regcomp (opcode)
12	12	1	12µs	12µs	version::regex::::CORE:qrversion::regex::CORE:qr (opcode)
1	1	1	12µs	22µs	version::regex::::BEGIN@3version::regex::BEGIN@3
1	1	1	6µs	42µs	version::regex::::BEGIN@5version::regex::BEGIN@5
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	27µs	2	33µs	# spent 22µs (12+11) within version::regex::BEGIN@3 which was called: # once (12µs+11µs) by Module::Load::Conditional::BEGIN@12 at line 3 use strict; # spent 22µs making 1 call to version::regex::BEGIN@3 # spent 11µs making 1 call to strict::import
4
5	2	254µs	2	78µs	# spent 42µs (6+36) within version::regex::BEGIN@5 which was called: # once (6µs+36µs) by Module::Load::Conditional::BEGIN@12 at line 5 use vars qw($VERSION $CLASS $STRICT $LAX); # spent 42µs making 1 call to version::regex::BEGIN@5 # spent 36µs making 1 call to vars::import
6
7	1	300ns			$VERSION = 0.9909;
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
16	1	9µs	1	2µs	my $FRACTION_PART = qr/\.[0-9]+/; # spent 2µ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
22	1	2µs	1	800ns	my $STRICT_INTEGER_PART = qr/0\|[1-9][0-9]*/; # spent 800ns 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
33	1	2µs	1	600ns	my $LAX_INTEGER_PART = qr/[0-9]+/; # spent 600ns 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
40	1	2µs	1	600ns	my $STRICT_DOTTED_DECIMAL_PART = qr/\.[0-9]{1,3}/; # spent 600ns 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
47	1	2µs	1	600ns	my $LAX_DOTTED_DECIMAL_PART = qr/\.[0-9]+/; # spent 600ns 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
52	1	2µs	1	400ns	my $LAX_ALPHA_PART = qr/_[0-9]+/; # spent 400ns making 1 call to version::regex::CORE:qr
53
54					#--------------------------------------------------------------------------#
55					# Strict version regexp definitions
56					#--------------------------------------------------------------------------#
57
58					# Strict decimal version number.
59
60	1	19µs	2	13µs	my $STRICT_DECIMAL_VERSION = # spent 12µs making 1 call to version::regex::CORE:regcomp # spent 700ns 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
66	1	14µs	2	10µs	my $STRICT_DOTTED_DECIMAL_VERSION = # spent 10µs making 1 call to version::regex::CORE:regcomp # spent 700ns 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
72	1	19µs	2	15µs	$STRICT = # spent 14µs making 1 call to version::regex::CORE:regcomp # spent 700ns 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
83	1	18µs	2	14µs	my $LAX_DECIMAL_VERSION = # spent 13µs making 1 call to version::regex::CORE:regcomp # spent 700ns 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
95	1	23µs	2	18µs	my $LAX_DOTTED_DECIMAL_VERSION = # spent 15µ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
108	1	31µs	2	26µs	$LAX = # spent 25µs making 1 call to version::regex::CORE:regcomp # spent 800ns 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.
114					sub is_strict { defined $_[0] && $_[0] =~ qr/ \A $STRICT \z /x }
115					sub is_lax { defined $_[0] && $_[0] =~ qr/ \A $LAX \z /x }
116
117	1	11µs			1;

					# spent 12µs within version::regex::CORE:qr which was called 12 times, avg 992ns/call: # once (3µs+0s) by Module::Load::Conditional::BEGIN@12 at line 95 # once (2µs+0s) by Module::Load::Conditional::BEGIN@12 at line 16 # once (800ns+0s) by Module::Load::Conditional::BEGIN@12 at line 108 # once (800ns+0s) by Module::Load::Conditional::BEGIN@12 at line 22 # once (700ns+0s) by Module::Load::Conditional::BEGIN@12 at line 72 # once (700ns+0s) by Module::Load::Conditional::BEGIN@12 at line 60 # once (700ns+0s) by Module::Load::Conditional::BEGIN@12 at line 66 # once (700ns+0s) by Module::Load::Conditional::BEGIN@12 at line 83 # once (600ns+0s) by Module::Load::Conditional::BEGIN@12 at line 47 # once (600ns+0s) by Module::Load::Conditional::BEGIN@12 at line 40 # once (600ns+0s) by Module::Load::Conditional::BEGIN@12 at line 33 # once (400ns+0s) by Module::Load::Conditional::BEGIN@12 at line 52 sub version::regex::CORE:qr; # opcode
					# spent 89µs within version::regex::CORE:regcomp which was called 6 times, avg 15µs/call: # once (25µs+0s) by Module::Load::Conditional::BEGIN@12 at line 108 # once (15µs+0s) by Module::Load::Conditional::BEGIN@12 at line 95 # once (14µs+0s) by Module::Load::Conditional::BEGIN@12 at line 72 # once (13µs+0s) by Module::Load::Conditional::BEGIN@12 at line 83 # once (12µs+0s) by Module::Load::Conditional::BEGIN@12 at line 60 # once (10µs+0s) by Module::Load::Conditional::BEGIN@12 at line 66 sub version::regex::CORE:regcomp; # opcode