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.76;
  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;