cpan/autodie/t/hints_provider_does.t

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