X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2Fversion.pm;h=084b9485262cdc74e85f8571bb8eb97f01558661;hb=3e7dd34d07ec3fbcf1e108a3270d6009e068e8eb;hp=5af78ef5ca4a61ca5b66398e24203f7c702c9716;hpb=cd57dc11b379d64c4f58020ac5a49cbd7893e35a;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/lib/version.pm b/lib/version.pm
index 5af78ef..084b948 100644
--- a/lib/version.pm
+++ b/lib/version.pm
@@ -1,20 +1,25 @@
 #!perl -w
 package version;
 
-use 5.005_03;
+use 5.005_04;
 use strict;
 
-require Exporter;
-use vars qw(@ISA $VERSION $CLASS @EXPORT);
+use vars qw(@ISA $VERSION $CLASS *qv);
 
-@ISA = qw(Exporter);
-
-@EXPORT = qw(qv);
-
-$VERSION = 0.53;
+$VERSION = 0.68;
 
 $CLASS = 'version';
 
 # Preloaded methods go here.
+sub import {
+    my ($class) = @_;
+    my $callpkg = caller();
+    no strict 'refs';
+    
+    *{$callpkg."::qv"} = 
+	    sub {return bless version::qv(shift), $class }
+	unless defined (&{"$callpkg\::qv"});
+
+}
 
 1;