Select Code to Download

package Exception;

...

1;

#!perl
# exception.t tests all of Exception.
...
    is($croak, $expected_message, $test_name);
}

exception.t .. 
ok 1 - use Exception;
...
  Non-zero exit status: 1
Files=1, Tests=2,  0 wallclock secs ( 0.02 usr  0.00 sys +  0.07 cusr 
+ 0.00 csys =  0.09 CPU)
Result: FAIL