use strict;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
use Class::MOP;
while (my ($name, $meta_method) = each %methods) {
is $meta_method->fully_qualified_name, "Derived::${name}";
- throws_ok { $meta_method->execute } qr/Undefined subroutine .* called at/;
+ like exception { $meta_method->execute }, qr/Undefined subroutine .* called at/;
}
{
while (my ($name, $meta_method) = each %methods) {
is $meta_method->fully_qualified_name, "Derived::${name}";
- lives_ok { $meta_method->execute };
+ ok ! exception { $meta_method->execute },;
}
done_testing;