This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fwd: CPAN Upload: J/JP/JPEACOCK/version-0.70.tar.gz
[perl5.git] / lib / version.pm
CommitLineData
c8d69e4a 1#!perl -w
a7ad731c
HS
2package version;
3
c8a14fb6 4use 5.005_04;
a7ad731c
HS
5use strict;
6
c8a14fb6 7use vars qw(@ISA $VERSION $CLASS *qv);
a7ad731c 8
f34c6aaf 9$VERSION = "0.70";
a7ad731c
HS
10
11$CLASS = 'version';
12
a7ad731c 13# Preloaded methods go here.
c8a14fb6 14sub 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
251;