use vars qw(@ISA $VERSION $CLASS *qv);
-$VERSION = "0.60";
+$VERSION = "0.60_02";
$VERSION = eval($VERSION);
$CLASS = 'version';
-eval "use version::vxs $VERSION";
-if ( $@ ) { # don't have the XS version installed
- eval "use version::vpp $VERSION"; # don't tempt fate
- die "$@" if ( $@ );
- push @ISA, "version::vpp";
- *version::qv = \&version::vpp::qv;
-}
-else { # use XS module
- push @ISA, "version::vxs";
- *version::qv = \&version::vxs::qv;
-}
-
# Preloaded methods go here.
sub import {
my ($class, @args) = @_;
no strict 'refs';
*{$callpkg."::qv"} =
- sub {return bless version::qv(shift), $class };
+ sub {return bless version::qv(shift), $class }
+ unless $callpkg->can('qv');
+
}
1;