perl-5.16.2/cpan/autodie/t/lib/autodie/test/badname.pm

package autodie::test::badname;
use base qw(autodie);

sub exception_class {
    return 'autodie::test::badname::$@#%';  # Doesn't exist!
}

1;