projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
998180b2f5a51c1f583d8859e5b43151a582c1e1
[p5sagit/p5-mst-13.2.git]
/
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;