Help for this page

Select Code to Download


  1. or download this
    sub func {
       my ($error) = @_;
    ...
       my @results = func($_);
       print(@results ? "no error (@results)" : 'error', "\n");
    }
    
  2. or download this
    sub func {
       my ($error) = @_;
    ...
       my $results = func($_);
       print($results ? "no error (@$results)" : 'error', "\n");
    }