Baking roles into Moose classes.

real_unicorns.t

use strict;
use warnings;
use 5.012;
use Carp;

use Moose;
use Moose::Util qw/apply_all_roles with_traits/;
use Test::More;

{

    package Horse;

    use Moose;

    sub is_horned {

        return 1 if shift->DOES('Horned');
        return;

    }

}

{

    package Horned;

    use Moose::Role;

}

my $unicorn_class = with_traits('Horse', 'Horned');

my $unicorn = Horse->new;

isa_ok($unicorn, 'Horse');
ok(!$unicorn->is_horned, q{... and it is not horned yet});
apply_all_roles($unicorn, 'Horned');
isa_ok($unicorn, 'Horse');
ok($unicorn->is_horned, q{... and it has a horn now});

my $real_unicorn = $unicorn_class->new;

isa_ok($real_unicorn, 'Horse');
isa_ok($real_unicorn, $unicorn_class);
ok($real_unicorn->is_horned, q{... and it has a horn from birth});

done_testing;