Help for this page

Select Code to Download


  1. or download this
    sub makeclosure {
 my @x=(@_);
...
return makeclosure(val1,val2);
#on error
return bless sub {undef or die},"errormessage";
  2. or download this
    if(ref($return=&yoursubhere($a->(),$s->())ne"CODE"){
#error
}
&nextsub($return->())