[gitmo/Mouse.git] / t / 030_roles / 042_compose_overloading.t

use strict;
# This is automatically generated by author/import-moose-test.pl.
# DO NOT EDIT THIS FILE. ANY CHANGES WILL BE LOST!!!
use t::lib::MooseCompat;
use warnings;
use Test::More;

{
    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;

TODO: {
    local $TODO = "the special () method isn't properly composed into the class";
    is("$bar", 42, 'overloading can be composed');
}

done_testing;
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
fde8e43f	33	done_testing;