mirror of
https://github.com/Perl/perl5.git
synced 2026-01-26 08:38:23 +00:00
ba6f05dbf3
This change fixes enough code that it's possible to run make test_prep when perl is compiled with -Dusedefaultstrict. There are 2 caveats to this: - Does not address XSLoader/DynaLoader already submitted in another PR. - Does not address cpan/Pod-Usage or cpan/Text-Tabs which continue to be outstanding upstream.
44 lines
945 B
Perl
44 lines
945 B
Perl
package subs;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
our $VERSION = '1.04';
|
|
|
|
=head1 NAME
|
|
|
|
subs - Perl pragma to predeclare subroutine names
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use subs qw(frob);
|
|
frob 3..10;
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This will predeclare all the subroutines whose names are
|
|
in the list, allowing you to use them without parentheses (as list operators)
|
|
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 lexically scoped to the block they appear
|
|
in: they affect
|
|
the entire package in which they appear. It is not possible to rescind these
|
|
declarations with C<no vars> or C<no subs>.
|
|
|
|
See L<perlmodlib/Pragmatic Modules> and L<strict/strict subs>.
|
|
|
|
=cut
|
|
|
|
sub import {
|
|
my $callpack = caller;
|
|
my $pack = shift;
|
|
my @imports = @_;
|
|
foreach my $sym (@imports) {
|
|
no strict 'refs';
|
|
*{"${callpack}::$sym"} = \&{"${callpack}::$sym"};
|
|
}
|
|
};
|
|
|
|
1;
|