[perl5.git] / lib / subs.pm

package subs;

=head1 NAME

subs - Perl pragma to predeclare sub names

=head1 SYNOPSIS

    use subs qw(frob);
    frob 3..10;

=head1 DESCRIPTION

This will predeclare all the subroutine whose names are 
in the list, allowing you to use them without parentheses
even before they're declared.

Unlike pragmas that affect the C<$^H> hints variable, the C<use vars> and
C<use subs> declarations are not BLOCK-scoped.  They are thus effective
for the entire file in which they appear.  You may not rescind such
declarations with C<no vars> or C<no subs>.

See L<perlmod/Pragmatic Modules> and L<strict/strict subs>.

=cut
require 5.000;

sub import {
    my $callpack = caller;
    my $pack = shift;
    my @imports = @_;
    foreach $sym (@imports) {
	*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
    }
};

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