Commit | Line | Data |
---|---|---|
7adfd53f | 1 | package Reaction::Meta::Class; |
2 | ||
3 | use Moose; | |
4 | use Reaction::Meta::Attribute; | |
5 | ||
6 | extends 'Moose::Meta::Class'; | |
7 | ||
6a00914b | 8 | sub new { shift->SUPER::new(@_); } |
9 | ||
7adfd53f | 10 | around initialize => sub { |
11 | my $super = shift; | |
12 | my $class = shift; | |
13 | my $pkg = shift; | |
14 | $super->($class, $pkg, 'attribute_metaclass' => 'Reaction::Meta::Attribute', @_ ); | |
15 | }; | |
16 | ||
02e3a86c | 17 | no Moose; |
a5200252 | 18 | |
19 | __PACKAGE__->meta->make_immutable; | |
20 | ||
7adfd53f | 21 | 1; |