use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
-$VERSION = 0.9905;
+$VERSION = 0.9906;
$CLASS = 'version';
# avoid using Exporter
require version::regex;
*version::is_lax = \&version::regex::is_lax;
*version::is_strict = \&version::regex::is_strict;
+*LAX = \$version::regex::LAX;
+*STRICT = \$version::regex::STRICT;
sub import {
no strict 'refs';
=head2 Regular Expressions for Version Parsing
A formalized definition of the legal forms for version strings is
-included in the main F<version.pm> file. Primitives are included for
+included in the C<version::regex> class. Primitives are included for
common elements, although they are scoped to the file so they are useful
for reference purposes only. There are two publicly accessible scalars
that can be used in other code (not exported):
use vars qw($VERSION $CLASS $STRICT $LAX);
-$VERSION = 0.9905;
+$VERSION = 0.9906;
#--------------------------------------------------------------------------#
# Version regexp components
use POSIX qw/locale_h/;
use locale;
-use vars qw($VERSION $CLASS @ISA);
-$VERSION = 0.9905;
+use vars qw($VERSION $CLASS @ISA $LAX $STRICT);
+$VERSION = 0.9906;
$CLASS = 'version::vpp';
require version::regex;
*version::vpp::is_strict = \&version::regex::is_strict;
*version::vpp::is_lax = \&version::regex::is_lax;
+*LAX = \$version::regex::LAX;
+*STRICT = \$version::regex::STRICT;
use overload (
'""' => \&stringify,
BEGIN {
(my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
require $coretests;
- use_ok('version::vpp', 0.9905);
+ use_ok('version::vpp', 0.9906);
}
BaseTests("version::vpp","new","qv");
BEGIN {
(my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
require $coretests;
- use_ok('version', 0.9905);
+ use_ok('version', 0.9906);
}
BaseTests("version","new","qv");
BEGIN {
(my $coretests = $0) =~ s'[^/]+\.t'coretests.pm';
require $coretests;
- use_ok("version", 0.9905);
+ use_ok("version", 0.9906);
# If we made it this far, we are ok.
}
# Don't want to use, because we need to make sure that the import doesn't
# fire just yet (some code does this to avoid importing qv() and delare()).
require_ok("version");
-is $version::VERSION, 0.9905, "Make sure we have the correct class";
+is $version::VERSION, 0.9906, "Make sure we have the correct class";
ok(!"main"->can("qv"), "We don't have the imported qv()");
ok(!"main"->can("declare"), "We don't have the imported declare()");
# do strict lax tests in a sub to isolate a package to test importing
SKIP: {
- skip 'No extended regexes Perl < 5.006', 172
+ skip 'No extended regexes Perl < 5.006', 174
if $] < 5.006_000;
strict_lax_tests();
+ is ref($version::LAX), 'Regexp', 'Can see $version::LAX '.$version::LAX ;
+ is ref($version::STRICT), 'Regexp', 'Can see $version::STRICT '.$version::STRICT;
}
+
sub strict_lax_tests {
package temp12345;
# copied from perl core test t/op/packagev.t
}
BEGIN {
- use version 0.9905;
+ use version 0.9906;
}
pass "Didn't get caught by the wrong DIE handler, which is a good thing";
use Test::More qw/no_plan/;
BEGIN {
- use_ok('version', 0.9905);
+ use_ok('version', 0.9906);
}
my $v1 = version->new('1.2');
use Config;
BEGIN {
- use_ok('version', 0.9905);
+ use_ok('version', 0.9906);
}
SKIP: {
#########################
use Test::More tests => 3;
-use_ok("version", 0.9905);
+use_ok("version", 0.9906);
# do strict lax tests in a sub to isolate a package to test importing
SKIP: {
#########################
use strict;
-use_ok("version", 0.9905);
+use_ok("version", 0.9906);
use Test::More;
BEGIN {
libnet cpan/libnet/Makefile.PL 6b10ac98e672bfebb8f49b9720a93442645208b3
podlators cpan/podlators/scripts/pod2man.PL f81acf53f3ff46cdcc5ebdd661c5d13eb35d20d6
podlators cpan/podlators/scripts/pod2text.PL b4693fcfe4a0a1b38a215cfb8985a65d5d025d69
-version cpan/version/lib/version.pm 881dee6f24fc887c5650b9c9a8aeed4d4923cc16
-version cpan/version/t/07locale.t bbc7f94bc2ad633978aedb5732b8b4ad6b3247fb
-version cpan/version/t/08_corelist.t 1c10cc05162c99b02cd45f9b9fb9a310aa2bff10
+version cpan/version/lib/version.pm 3934bcc033f1f15aed2ba78017f71d2e5482deca
+version cpan/version/t/07locale.t 9ec512b4ef9cd6d6ab26c4215692048925fd0179
+version cpan/version/t/08_corelist.t 3094fab78b4e8a5471d0c3bcca2402317c6562d0