14 overload::constant 'integer' => sub { return shift; };
19 BEGIN { $INC{'Foo.pm'} = "/lib/Foo.pm" }
23 my $result = eval "5+6";
27 my $label = "No exception was thrown with an overload::constant 'integer' inside an eval.";
31 print "ok 1 - $label\n"
35 print "not ok 1 - $label\n";
36 print "# Error is $error\n";
39 $label = "Correct solution";
41 if (!defined($result))
48 print "ok 2 - $label\n";
52 print "not ok 2 - $label\n";
53 print "# Result is $result\n";