#!perl -w
package version;
our (@ISA, $VERSION, $CLASS);
$VERSION = 0.73;
$CLASS = 'version';
# Preloaded methods go here.
sub import($class, ...) {
my $callpkg = caller();
*{Symbol::fetch_glob($callpkg."::qv")} =
sub {return bless version::qv(shift), $class }
unless defined (&{Symbol::fetch_glob("$callpkg\::qv")});
}
1;