1#!/usr/bin/perl -w 2use strict; 3use warnings; 4use autodie; 5 6use Test::More 'no_plan'; 7 8use FindBin qw($Bin); 9use lib "$Bin/lib"; 10 11use Hints_provider_does qw(always_pass always_fail); 12use autodie qw(always_pass always_fail); 13 14eval { my $x = always_pass() }; 15is("$@", "", "always_pass in scalar context"); 16 17eval { my @x = always_pass() }; 18is("$@", "", "always_pass in list context"); 19 20eval { my $x = always_fail() }; 21isnt("$@", "", "always_fail in scalar context"); 22 23eval { my @x = always_fail() }; 24isnt("$@", "", "always_fail in list context"); 25