Increase $English::VERSION to 1.07

[perl5.git] / lib / version.pm

diff --git a/lib/version.pm b/lib/version.pm
index 424463d..27774bd 100644 (file)
--- a/lib/version.pm
+++ b/lib/version.pm
@@ -6,7 +6,7 @@ use strict;
 
 use vars qw(@ISA $VERSION $CLASS $STRICT $LAX *declare *qv);
 
-$VERSION = 0.81;
+$VERSION = 0.9902;
 
 $CLASS = 'version';
 
@@ -141,19 +141,29 @@ sub import {
     my $callpkg = caller();
     
     if (exists($args{declare})) {
-       *{$callpkg."::declare"} = 
+       *{$callpkg.'::declare'} = 
            sub {return $class->declare(shift) }
          unless defined(&{$callpkg.'::declare'});
     }
 
     if (exists($args{qv})) {
-       *{$callpkg."::qv"} =
+       *{$callpkg.'::qv'} =
            sub {return $class->qv(shift) }
-         unless defined(&{"$callpkg\::qv"});
+         unless defined(&{$callpkg.'::qv'});
     }
 
     if (exists($args{'VERSION'})) {
-       *{$callpkg."::VERSION"} = \&version::_VERSION;
+       *{$callpkg.'::VERSION'} = \&version::_VERSION;
+    }
+
+    if (exists($args{'is_strict'})) {
+       *{$callpkg.'::is_strict'} = \&version::is_strict
+         unless defined(&{$callpkg.'::is_strict'});
+    }
+
+    if (exists($args{'is_lax'})) {
+       *{$callpkg.'::is_lax'} = \&version::is_lax
+         unless defined(&{$callpkg.'::is_lax'});
     }
 }