4 use Test::More 'no_plan';
10 is(mytest(q{foo}),q{foo},"Mytest returns input");
12 my $return = eval { mytest(undef); };
14 ok(!defined($return), "mytest returns undef without autodie");
15 is($@,"","Mytest doesn't throw an exception without autodie");
18 use autodie qw(mytest);
23 is($return,'foo',"Mytest returns input with autodie");
24 is($@,"","No error should be thrown");
27 use autodie qw(mytest);
32 isa_ok($@,'autodie::exception',"autodie mytest/undef throws exception");
34 # We set initial values here because we're expecting $data to be
35 # changed to undef later on. Having it as undef to begin with means
36 # we can't see mytest(undef) working correctly.
38 my ($data, $data2) = (1,1);
41 use autodie qw(mytest);
44 no autodie qw(mytest);
46 $data = mytest(undef);
47 $data2 = mytest('foo');
51 is($@,"","no autodie can counter use autodie for user subs");
52 ok(!defined($data), "mytest(undef) should return undef");
53 is($data2, "foo", "mytest(foo) should return foo");
59 is($@,"","No lingering failure effects");
65 is($return,"bar","No lingering return effects");