blob: 27c084fe4efd4c2711f3cce0ae16aae4a4915383 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
package Reaction::Meta::Class;
use Moose;
use Reaction::Meta::Attribute;
extends 'Moose::Meta::Class';
around initialize => sub {
my $super = shift;
my $class = shift;
my $pkg = shift;
$super->($class, $pkg, 'attribute_metaclass' => 'Reaction::Meta::Attribute', @_ );
};
__PACKAGE__->meta->make_immutable;
1;
|