Help for this page

Select Code to Download

Select or download this

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