[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.

See L<perlmod/Pragmatic Modules> and L<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
	18	See L<perlmod/Pragmatic Modules> and L<strict/subs>.
	19
	20	=cut
a0d0e21e LW	21	require 5.000;
a0d0e21e LW	22
a0d0e21e LW	23	sub import {
	24	my $callpack = caller;
	25	my $pack = shift;
	26	my @imports = @_;
	27	foreach $sym (@imports) {
	28	*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
	29	}
	30	};
	31
	32	1;