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