projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
It's all relative -- better handling of tainted directories
[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.60_02";
10
$VERSION = eval($VERSION);
11
12
$CLASS = 'version';
13
14
# Preloaded methods go here.
15
sub import {
16
my ($class, @args) = @_;
17
my $callpkg = caller();
18
no strict 'refs';
19
20
*{$callpkg."::qv"} =
21
sub {return bless version::qv(shift), $class }
22
unless $callpkg->can('qv');
23
24
}
25
26
1;