Commit | Line | Data |
---|---|---|
5d27ac73 | 1 | #!/usr/bin/perl |
2 | use strict; | |
3 | use warnings; | |
a28e50e4 | 4 | use Test::More; |
5d27ac73 | 5 | |
6 | { | |
7 | package Foo; | |
8 | ||
9 | use Moose; | |
10 | ||
11 | use overload '""' => sub {''}; | |
12 | ||
13 | sub bug { 'plenty' } | |
14 | ||
15 | __PACKAGE__->meta->make_immutable; | |
16 | } | |
17 | ||
18 | ok(Foo->new()->bug(), 'call constructor on object reference with overloading'); | |
19 | ||
a28e50e4 | 20 | done_testing; |