Help for this page

Select Code to Download

Select or download this

sub DESTROY {
  my $this = shift;
...
        .(@err ? ' (and '.scalar @err.' more).' : '.');
  }
}

Select 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