[ PATCH ] mymalloc on HP-UX
[p5sagit/p5-mst-13.2.git] / lib / subs.pm
1 package subs;
2
3 our $VERSION = '1.00';
4
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
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
25 See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>.
26
27 =cut
28
29 require 5.000;
30
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;