| #!/usr/bin/perl -w |
| use strict; |
| use warnings; |
| use autodie; |
| |
| use Test::More 'no_plan'; |
| |
| use FindBin qw($Bin); |
| use lib "$Bin/lib"; |
| |
| use Hints_provider_easy_does_it qw(always_pass always_fail); |
| use autodie qw(always_pass always_fail); |
| |
| eval { my $x = always_pass() }; |
| is("$@", "", "always_pass in scalar context"); |
| |
| eval { my @x = always_pass() }; |
| is("$@", "", "always_pass in list context"); |
| |
| eval { my $x = always_fail() }; |
| isnt("$@", "", "always_fail in scalar context"); |
| |
| eval { my @x = always_fail() }; |
| isnt("$@", "", "always_fail in list context"); |