Commit | Line | Data |
---|---|---|
4c98ebb0 | 1 | #!/usr/bin/perl |
2 | use strict; | |
3 | use warnings; | |
4 | use Test::More tests => 1; | |
5 | ||
6 | { | |
7 | package Foo; | |
8 | ||
9 | use Mouse; | |
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 |