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
Race condition fix in threads.pm
[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.67;
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;