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

package Wrapper;
use Carp;
...
    return $returnval;
}
sub DESTROY {} # don't autoload DESTROY