Help for this page

Select Code to Download


  1. or download this
        for my $f (@_) {
            no strict 'refs';
            *{"$caller\::$f"} = sub { print "$f\n" };
        }