Commit | Line | Data |
---|---|---|
6cfa1e5e | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More tests => 1; | |
4 | ||
5 | { | |
6 | package Foo; | |
7 | use Mouse::Role; | |
8 | ||
9 | use overload | |
10 | q{""} => sub { 42 }, | |
11 | fallback => 1; | |
12 | ||
13 | no Mouse::Role; | |
14 | } | |
15 | ||
16 | { | |
17 | package Bar; | |
18 | use Mouse; | |
19 | with 'Foo'; | |
20 | no Mouse; | |
21 | } | |
22 | ||
23 | my $bar = Bar->new; | |
24 | ||
25 | TODO: { | |
26 | local $TODO = "the special () method isn't properly composed into the class"; | |
27 | is("$bar", 42, 'overloading can be composed'); | |
28 | } |