Some escapes were mentioned twice, although they're not qr//-specific
[p5sagit/p5-mst-13.2.git] / lib / version.pm
CommitLineData
c8d69e4a 1#!perl -w
a7ad731c 2package version;
3
c8a14fb6 4use 5.005_04;
a7ad731c 5use strict;
6
c8a14fb6 7use vars qw(@ISA $VERSION $CLASS *qv);
a7ad731c 8
8cb289bd 9$VERSION = 0.7203;
a7ad731c 10
11$CLASS = 'version';
12
a7ad731c 13# Preloaded methods go here.
c8a14fb6 14sub import {
317f7c8a 15 my ($class) = @_;
c8a14fb6 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 24
251;