[p5sagit/p5-mst-13.2.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;

$ExportLevel = 0;

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

1;
Commit	Line	Data
a0d0e21e	1	package subs;
a0d0e21e	2
f06db76b	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	21	require 5.000;
	22
	23	$ExportLevel = 0;
	24
	25	sub import {
	26	my $callpack = caller;
	27	my $pack = shift;
	28	my @imports = @_;
	29	foreach $sym (@imports) {
	30	*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
	31	}
	32	};
	33
	34	1;