Help for this page

Select Code to Download

Select or download this

for my $meth (qw/ WriteLine Select Add /) {
    my $sub = sub {
...
    no strict 'refs';
    *$meth = $sub;
}

Select or download this

    no strict 'refs';
    *$meth = $sub;