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

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;
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
	8	around initialize => sub {
	9	my $super = shift;
	10	my $class = shift;
	11	my $pkg = shift;
	12	$super->($class, $pkg, 'attribute_metaclass' => 'Reaction::Meta::Attribute', @_ );
	13	};
	14
a5200252	15
	16	__PACKAGE__->meta->make_immutable;
	17
7adfd53f	18	1;