use strict;
use warnings;
use Test::More;
{
package MyE;
use strict;
use warnings;
use base 'Exception::Class::Base';
}
eval { MyE->throw() };
isa_ok( $@, 'MyE', 'can throw MyE without loading Exception::Class' );
my $caught = MyE->caught();
is( $@, q{}, 'no exception calling MyE->caught()' );
ok( $caught, 'caught MyE exception' );
done_testing();