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";
  10 $VERSION = eval($VERSION);
  11
  12 $CLASS = 'version';
  13
  14 eval "use version::vxs $VERSION";
  15 if ( $@ ) { # don't have the XS version installed
  16     eval "use version::vpp $VERSION"; # don't tempt fate
  17     die "$@" if ( $@ );
  18     push @ISA, "version::vpp";
  19     *version::qv = \&version::vpp::qv;
  20 }
  21 else { # use XS module
  22     push @ISA, "version::vxs";
  23     *version::qv = \&version::vxs::qv;
  24 }
  25
  26 # Preloaded methods go here.
  27 sub import {
  28     my ($class, @args) = @_;
  29     my $callpkg = caller();
  30     no strict 'refs';
  31
  32     *{$callpkg."::qv"} =
  33             sub {return bless version::qv(shift), $class };
  34 }
  35
  36 1;