3 # this functionality may be pushing toward parametric roles/classes
4 # it's off in a corner and may not be that important
24 package My::Metaclass;
26 extends 'Moose::Meta::Class';
34 $anon = My::Metaclass->create_anon_class( foo => 'this' );
35 } 'create anon class with required attr';
36 isa_ok( $anon, 'My::Metaclass' );
37 cmp_ok( $anon->foo, 'eq', 'this', 'foo is this' );
39 $anon = My::Metaclass->create_anon_class();
40 } 'failed to create anon class without required attr';
45 = My::Metaclass->initialize( 'Class::Name1' => ( foo => 'that' ) );
46 } 'initialize a class with required attr';
47 isa_ok( $meta, 'My::Metaclass' );
48 cmp_ok( $meta->foo, 'eq', 'that', 'foo is that' );
49 cmp_ok( $meta->name, 'eq', 'Class::Name1', 'for the correct class' );
52 = My::Metaclass->initialize( 'Class::Name2' );
53 } 'failed to initialize a class without required attr';
58 use metaclass 'My::Metaclass' => (
64 } 'use metaclass with required attr';
65 $meta = Class::Name3->meta;
66 isa_ok( $meta, 'My::Metaclass' );
67 cmp_ok( $meta->foo, 'eq', 'another', 'foo is another' );
68 cmp_ok( $meta->name, 'eq', 'Class::Name3', 'for the correct class' );
72 use metaclass 'My::Metaclass';
76 } 'failed to use metaclass without required attr';
79 # how do we pass a required attribute to -traits?
83 use Moose -traits => 'HasFoo';
86 } 'failed to use trait without required attr';