Mini Shell
Mini Shell
| Direktori : /usr/share/doc/perl-Moose-2.1005/t/roles/ |
| Current File : //usr/share/doc/perl-Moose-2.1005/t/roles/compose_overloading.t |
use strict;
use warnings;
use Test::More;
{
package Foo;
use Moose::Role;
use overload
q{""} => sub { 42 },
fallback => 1;
no Moose::Role;
}
{
package Bar;
use Moose;
with 'Foo';
no Moose;
}
my $bar = Bar->new;
TODO: {
local $TODO = "the special () method isn't properly composed into the class";
is("$bar", 42, 'overloading can be composed');
}
done_testing;