Commit | Line | Data |
---|---|---|
c989e6a3 GD |
1 | use warnings; |
2 | use strict; | |
3 | use Test::Simple tests => 2; | |
4 | ||
5 | use overload '""' => sub { 'stringvalue' }, fallback => 1; | |
6 | ||
7 | BEGIN { | |
8 | my $x = bless {}, 'main'; | |
9 | ok ($x eq 'stringvalue', 'fallback worked'); | |
10 | } | |
11 | ||
12 | ||
13 | # NOTE: delete the next line and this test script will pass | |
14 | use overload '+' => sub { die "unused"; }; | |
15 | ||
16 | my $x = bless {}, 'main'; | |
17 | ok (eval {$x eq 'stringvalue'}, 'fallback worked again'); | |
18 |