[catagits/Reaction.git] / lib / Reaction / Role / Meta / Class.pm

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;
Commit	Line	Data
7f43bb45	1	package Reaction::Role::Meta::Class;
	2
	3	use Moose::Role;
	4
	5	around initialize => sub {
	6	my $super = shift;
	7	my $class = shift;
	8	my $pkg = shift;
	9	$super->($class, $pkg, 'attribute_metaclass' => 'Reaction::Meta::Attribute', @_ );
	10	};
	11
	12	1;