Help for this page

Select Code to Download


  1. or download this
    sub DESTROY {
      my $this = shift;
    ...
            .(@err ? ' (and '.scalar @err.' more).' : '.');
      }
    }
    
  2. or download this
    $test = bless( {
                     '_ERR_' => [
    ...
                   }, 'LocalTest2' );
    LocalTest2=HASH(0x18633a4) destroyed with error: 'First error' (and 1 
    +more). at test.pl line 0
    LocalTest2=HASH(0x18633a4) destroyed with error: 'Hello there!'. at te
    +st.pl line 0