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

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<perlmodlib/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	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
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
ee580363	23	See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>.
f06db76b	24
f06db76b	25	=cut
3fe9a6f1	26
a0d0e21e	27	require 5.000;
a0d0e21e	28
a0d0e21e	29	sub import {
	30	my $callpack = caller;
	31	my $pack = shift;
	32	my @imports = @_;
	33	foreach $sym (@imports) {
	34	*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
	35	}
	36	};
	37
	38	1;