trAvis - MANAGER

Edit File: 042_compose_overloading.t

use strict; use warnings; use Test::More tests => 1; { package Foo; use Mouse::Role; use overload q{""} => sub { 42 }, fallback => 1; no Mouse::Role; } { package Bar; use Mouse; with 'Foo'; no Mouse; } my $bar = Bar->new; is("$bar", 42, 'overloading can be composed');