Commit | Line | Data |
---|---|---|
a0d0e21e LW |
1 | package subs; |
2 | ||
b75c8c73 MS |
3 | our $VERSION = '1.00'; |
4 | ||
f06db76b AD |
5 | =head1 NAME |
6 | ||
7 | subs - Perl pragma to predeclare sub names | |
8 | ||
9 | =head1 SYNOPSIS | |
10 | ||
11 | use subs qw(frob); | |
12 | frob 3..10; | |
13 | ||
14 | =head1 DESCRIPTION | |
15 | ||
16 | This will predeclare all the subroutine whose names are | |
17 | in the list, allowing you to use them without parentheses | |
18 | even before they're declared. | |
19 | ||
55497cff | 20 | Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and |
21 | C<use subs> declarations are not BLOCK-scoped. They are thus effective | |
22 | for the entire file in which they appear. You may not rescind such | |
23 | declarations with C<no vars> or C<no subs>. | |
24 | ||
ee580363 | 25 | See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>. |
f06db76b AD |
26 | |
27 | =cut | |
3fe9a6f1 | 28 | |
a0d0e21e LW |
29 | require 5.000; |
30 | ||
a0d0e21e LW |
31 | sub import { |
32 | my $callpack = caller; | |
33 | my $pack = shift; | |
34 | my @imports = @_; | |
35 | foreach $sym (@imports) { | |
36 | *{"${callpack}::$sym"} = \&{"${callpack}::$sym"}; | |
37 | } | |
38 | }; | |
39 | ||
40 | 1; |