t/lib/UnknownError.pm

   1 # thanks kd
   2 package UnknownError;
   3 use strict;
   4 sub MODIFY_CODE_ATTRIBUTES {}
   5 sub  check : Blah {
   6 $error = "please explode" ; # deliberate syntax error
   7 }
   8 1;