This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Refactoring the /Can't return (?:array|hash) to scalar context/ croak
[perl5.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.74;
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;