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