This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Fix a syntax error in test
[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
4c0d88fa 9$VERSION = "0.60_01";
c8a14fb6 10$VERSION = eval($VERSION);
a7ad731c
HS
11
12$CLASS = 'version';
13
a7ad731c 14# Preloaded methods go here.
c8a14fb6
RGS
15sub import {
16 my ($class, @args) = @_;
17 my $callpkg = caller();
18 no strict 'refs';
19
20 *{$callpkg."::qv"} =
21 sub {return bless version::qv(shift), $class };
22}
a7ad731c
HS
23
241;