Help for this page

Select Code to Download


  1. or download this
    for my $meth (qw/ WriteLine Select Add /) {
        my $sub = sub {
    ...
        no strict 'refs';
        *$meth = $sub;
    }
    
  2. or download this
    package Wrapper;
    use Carp;
    ...
        return $returnval;
    }
    sub DESTROY {} # don't autoload DESTROY