blob: 6d91e3f42b88d11b99bba521a79e6a684411c248 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
package Reaction::Role::Meta::Class;
use Moose::Role;
around initialize => sub {
my $super = shift;
my $class = shift;
my $pkg = shift;
$super->($class, $pkg, 'attribute_metaclass' => 'Reaction::Meta::Attribute', @_ );
};
1;
|