[perl5.git] / lib / version.pm

#!perl -w
package version;

use 5.005_04;
use strict;

use vars qw(@ISA $VERSION $CLASS *qv);

$VERSION = 0.6701;

$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;
Commit	Line	Data
c8d69e4a	1	#!perl -w
a7ad731c HS	2	package version;
a7ad731c HS	3
c8a14fb6	4	use 5.005_04;
a7ad731c HS	5	use strict;
a7ad731c HS	6
c8a14fb6	7	use vars qw(@ISA $VERSION $CLASS *qv);
a7ad731c	8
77e31702	9	$VERSION = 0.6701;
a7ad731c HS	10
	11	$CLASS = 'version';
	12
a7ad731c	13	# Preloaded methods go here.
c8a14fb6	14	sub import {
317f7c8a	15	my ($class) = @_;
c8a14fb6 RGS	16	my $callpkg = caller();
	17	no strict 'refs';
	18
	19	*{$callpkg."::qv"} =
c0b17f21	20	sub {return bless version::qv(shift), $class }
92dcf8ce	21	unless defined (&{"$callpkg\::qv"});
c0b17f21	22
c8a14fb6	23	}
a7ad731c HS	24
a7ad731c HS	25	1;