use warnings;
use Test::More;
-use Test::Exception;
+use Test::Fatal;
{
can_ok($foo, 'get_foo');
is($foo->get_foo(), undef, '... got an undefined value');
- dies_ok {
+ isnt( exception {
$foo->get_foo(100);
- } '... get_foo is a read-only';
+ }, undef, '... get_foo is a read-only' );
ok(!exists($foo->{lazy_foo}), '... no value in get_lazy_foo slot');
can_ok($foo, 'get_lazy_foo');
is($foo->get_lazy_foo(), 10, '... got an deferred value');
- dies_ok {
+ isnt( exception {
$foo->get_lazy_foo(100);
- } '... get_lazy_foo is a read-only';
+ }, undef, '... get_lazy_foo is a read-only' );
}
{