for my $error_type (qw( Unrecoverable Unrecoverable::BrainDamage )) {
   eval("
      package MonkeyMan::Error::$error_type;
      our \@ISA = 'MonkeyMan::Error';
      1
   ")
      or die $@;
}