Commit | Line | Data |
6cfa1e5e |
1 | use strict; |
fde8e43f |
2 | # This is automatically generated by author/import-moose-test.pl. |
3 | # DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!! |
4 | use t::lib::MooseCompat; |
6cfa1e5e |
5 | use warnings; |
fde8e43f |
6 | use Test::More; |
6cfa1e5e |
7 | |
8 | { |
9 | package Foo; |
10 | use Mouse::Role; |
11 | |
12 | use overload |
13 | q{""} => sub { 42 }, |
14 | fallback => 1; |
15 | |
16 | no Mouse::Role; |
17 | } |
18 | |
19 | { |
20 | package Bar; |
21 | use Mouse; |
22 | with 'Foo'; |
23 | no Mouse; |
24 | } |
25 | |
26 | my $bar = Bar->new; |
27 | |
28 | TODO: { |
29 | local $TODO = "the special () method isn't properly composed into the class"; |
30 | is("$bar", 42, 'overloading can be composed'); |
31 | } |
fde8e43f |
32 | |
33 | done_testing; |