use strict; use warnings; use Test::More tests => 3; use Test::Exception; BEGIN {use_ok 'Class::OOorNO'}; my $o = Class::OOorNO->new; isa_ok $o, 'Class::OOorNO'; dies_ok {$o->this_method_does_not_exist} 'unknown method dies';