5 use Test::More 'no_plan';
9 use Carp qw( confess );
10 sub an_abstract_method { shift->subclass_responsibility; }
11 sub subclass_responsibility {
13 my $method = (caller(1))[3];
15 confess( "abstract method '$method' not implemented for $class" );
19 throws_ok { Foo->an_abstract_method }
20 qr/abstract method 'an_abstract_method'/, 'RT 11846: throws_ok breaks tests that depend on caller stack: working';