diff options
author | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-04-20 16:52:33 +0000 |
---|---|---|
committer | matthewt <matthewt@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-04-20 16:52:33 +0000 |
commit | 7f43bb452c417fb80e8af1786b0557d87c5d4a72 (patch) | |
tree | ec309f0eae157dc42c60b1e69a4de181b8857e78 /lib/Reaction/Role/Meta/Class.pm | |
parent | 4d0bacd2bfacba04809dc0943625ad61a6d46b6c (diff) | |
download | reaction-7f43bb452c417fb80e8af1786b0557d87c5d4a72.tar.gz reaction-7f43bb452c417fb80e8af1786b0557d87c5d4a72.zip |
factor out metaclass info into roles for compatibility
Diffstat (limited to 'lib/Reaction/Role/Meta/Class.pm')
-rw-r--r-- | lib/Reaction/Role/Meta/Class.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/lib/Reaction/Role/Meta/Class.pm b/lib/Reaction/Role/Meta/Class.pm new file mode 100644 index 0000000..6d91e3f --- /dev/null +++ b/lib/Reaction/Role/Meta/Class.pm @@ -0,0 +1,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; |