Help for this page

Select Code to Download


  1. or download this
    *$_ = sub {
    __dbg { "Starting ${package}::${fname}(", join(',', @_), ')' } 4;
    my @ret = $fn->(@_);
};
  2. or download this
    *$_ = eval qq{sub $proto {
    __dbg { "Starting ${package}::${fname}(", join(',', \@_), ')' } 4;
    my \@ret = \$fn->(\@_);
}};