trAvis - MANAGER
Edit File: 031_roles_applied_in_create.t
#!/usr/bin/perl use strict; use warnings; use Test::More tests => 1; use Test::Exception; use Mouse::Meta::Class; use Mouse::Util; use lib 't/lib', 'lib'; # Note that this test passed (pre svn #5543) if we inlined the role # definitions in this file, as it was very timing sensitive. lives_ok( sub { my $builder_meta = Mouse::Meta::Class->create( 'YATTA' => ( superclass => 'Mouse::Meta::Class', roles => [qw( Role::Interface Role::Child )], ) ); }, 'Create a new class with several roles' );