Commit | Line | Data |
---|---|---|
c8d69e4a | 1 | #!perl -w |
a7ad731c | 2 | package version; |
3 | ||
c8a14fb6 | 4 | use 5.005_04; |
a7ad731c | 5 | use strict; |
6 | ||
c8a14fb6 | 7 | use vars qw(@ISA $VERSION $CLASS *qv); |
a7ad731c | 8 | |
c0b17f21 | 9 | $VERSION = "0.60_02"; |
c8a14fb6 | 10 | $VERSION = eval($VERSION); |
a7ad731c | 11 | |
12 | $CLASS = 'version'; | |
13 | ||
a7ad731c | 14 | # Preloaded methods go here. |
c8a14fb6 | 15 | sub import { |
16 | my ($class, @args) = @_; | |
17 | my $callpkg = caller(); | |
18 | no strict 'refs'; | |
19 | ||
20 | *{$callpkg."::qv"} = | |
c0b17f21 | 21 | sub {return bless version::qv(shift), $class } |
22 | unless $callpkg->can('qv'); | |
23 | ||
c8a14fb6 | 24 | } |
a7ad731c | 25 | |
26 | 1; |