=head1 NAME subs - Perl pragma to declare sub names and initialize them? =head1 SYNOPSIS use subs::i start_html => \&AUTOLOAD; =cut package subs::i; sub import { my $callpack = caller; my $pack = shift; my %imports = @_; foreach $sym (keys %imports) { *{"${callpack}::$sym"} = $imports{$sym}; } };
In reply to Re: Creating stub methods
by PodMaster
in thread Creating stub methods
by Ovid
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |