lib/Reaction/Meta/Class.pm

   1 package Reaction::Meta::Class;
   2
   3 use Moose;
   4 use Reaction::Meta::Attribute;
   5
   6 extends 'Moose::Meta::Class';
   7
   8 sub new { shift->SUPER::new(@_); }
   9
  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
  17 no Moose;
  18
  19 __PACKAGE__->meta->make_immutable;
  20
  21 1;