6 use Test::More 'no_plan';
11 use Hints_provider_isa qw(always_pass always_fail);
12 use autodie qw(always_pass always_fail);
14 eval { my $x = always_pass() };
15 is("$@", "", "always_pass in scalar context");
17 eval { my @x = always_pass() };
18 is("$@", "", "always_pass in list context");
20 eval { my $x = always_fail() };
21 isnt("$@", "", "always_fail in scalar context");
23 eval { my @x = always_fail() };
24 isnt("$@", "", "always_fail in list context");