3 use Test::Simple tests => 2;
5 use overload '""' => sub { 'stringvalue' }, fallback => 1;
8 my $x = bless {}, 'main';
9 ok ($x eq 'stringvalue', 'fallback worked');
13 # NOTE: delete the next line and this test script will pass
14 use overload '+' => sub { die "unused"; };
16 my $x = bless {}, 'main';
17 ok (eval {$x eq 'stringvalue'}, 'fallback worked again');