7 use vars qw(@ISA $VERSION $CLASS *qv);
10 $VERSION = eval($VERSION);
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
18 push @ISA, "version::vpp";
19 *version::qv = \&version::vpp::qv;
21 else { # use XS module
22 push @ISA, "version::vxs";
23 *version::qv = \&version::vxs::qv;
26 # Preloaded methods go here.
28 my ($class, @args) = @_;
29 my $callpkg = caller();
33 sub {return bless version::qv(shift), $class };