eval <<'HERE';
die qq{shouldn't even compile\n};
no indirect ':fatal', hook => sub { die 'should not be called' };
- my $x = new Fatal;
+ my $x = new Croaked;
$x = new NotReached;
HERE
- like $@, expect('Fatal'), 'croaks when :fatal is specified';
+ like $@, expect('Croaked'), 'croaks when :fatal is specified';
}
{