Make role_for_combination private

[gitmo/Moose.git] / t / 060_compat / 004_extends_nonmoose_that_isa_moose_with_metarole.t

use strict;
use warnings;
use Test::More tests => 1;

{
    package My::Role;
    use Moose::Role;
}
{
    package SomeClass;
    use Moose -traits => 'My::Role';
}
{
    package SubClassUseBase;
    use base qw/SomeClass/;
}
{
    package SubSubClassUseBase;
    use Moose;
    use Test::More;
    use Test::Exception;
    lives_ok {
        extends 'SubClassUseBase';
    } 'Can extend non-moose class whos parent class is a Moose class with a meta role';
}