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

package Reaction::Meta::Class;

use Moose;
use Reaction::Meta::Attribute;

extends 'Moose::Meta::Class';

sub new { shift->SUPER::new(@_); }

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
6a00914b	8	sub new { shift->SUPER::new(@_); }
6a00914b	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
a5200252	17
	18	__PACKAGE__->meta->make_immutable;
	19
7adfd53f	20	1;