This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Synch cpan/version/* and other files with CPAN version 0.9921.
[perl5.git] / cpan / version / lib / version / regex.pm
CommitLineData
4141ef59
JP
1package version::regex;
2
3use strict;
4
dddb2275
JP
5use vars qw(
6 $VERSION $CLASS $STRICT $LAX
7 $STRICT_DECIMAL_VERSION $STRICT_DOTTED_DECIMAL_VERSION
8 $LAX_DECIMAL_VERSION $LAX_DOTTED_DECIMAL_VERSION
9);
4141ef59 10
d3a5b29c 11$VERSION = 0.9921;
4141ef59
JP
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
20my $FRACTION_PART = qr/\.[0-9]+/;
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
26my $STRICT_INTEGER_PART = qr/0|[1-9][0-9]*/;
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
37my $LAX_INTEGER_PART = qr/[0-9]+/;
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
44my $STRICT_DOTTED_DECIMAL_PART = qr/\.[0-9]{1,3}/;
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
51my $LAX_DOTTED_DECIMAL_PART = qr/\.[0-9]+/;
52
53# Alpha suffix part of lax version number syntax. Acts like a
54# dotted-decimal part.
55
56my $LAX_ALPHA_PART = qr/_[0-9]+/;
57
58#--------------------------------------------------------------------------#
59# Strict version regexp definitions
60#--------------------------------------------------------------------------#
61
62# Strict decimal version number.
63
dddb2275 64$STRICT_DECIMAL_VERSION =
4141ef59
JP
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
dddb2275 70$STRICT_DOTTED_DECIMAL_VERSION =
4141ef59
JP
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
76$STRICT =
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
dddb2275 87$LAX_DECIMAL_VERSION =
38660758 88 qr/ $LAX_INTEGER_PART (?: $FRACTION_PART | \. )? $LAX_ALPHA_PART?
4141ef59
JP
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
dddb2275 99$LAX_DOTTED_DECIMAL_VERSION =
4141ef59
JP
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
112$LAX =
38660758 113 qr/ undef | $LAX_DOTTED_DECIMAL_VERSION | $LAX_DECIMAL_VERSION /x;
4141ef59
JP
114
115#--------------------------------------------------------------------------#
116
117# Preloaded methods go here.
118sub is_strict { defined $_[0] && $_[0] =~ qr/ \A $STRICT \z /x }
119sub is_lax { defined $_[0] && $_[0] =~ qr/ \A $LAX \z /x }
120
1211;