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.60_02";
  10 $VERSION = eval($VERSION);
  11
  12 $CLASS = 'version';
  13
  14 # Preloaded methods go here.
  15 sub 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         unless $callpkg->can('qv');
  23
  24 }
  25
  26 1;