X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute.pm;h=d142d41875cceb0241514de4d43e594ea35e7f05;hb=59ee60b453a133ceaca1d538e95040bcb24243ec;hp=d05b98538b2a4da38b393d5cccb352192aa09012;hpb=7a4a3b1efe4db788811154fbecbf6c94ceeee4bf;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm index d05b985..d142d41 100644 --- a/lib/MooseX/ClassAttribute.pm +++ b/lib/MooseX/ClassAttribute.pm @@ -3,16 +3,15 @@ package MooseX::ClassAttribute; use strict; use warnings; -our $VERSION = '0.05'; +our $VERSION = '0.10'; our $AUTHORITY = 'cpan:DROLSKY'; -use Moose (); +use Moose 0.89 (); use Moose::Exporter; use MooseX::ClassAttribute::Role::Meta::Class; -use MooseX::ClassAttribute::Role::Meta::Attribute; Moose::Exporter->setup_import_methods - ( with_caller => [ 'class_has' ] ); + ( with_meta => [ 'class_has' ] ); sub init_meta @@ -31,16 +30,14 @@ sub init_meta sub class_has { - my $caller = shift; + my $meta = shift; my $name = shift; my %options = @_; my $attrs = ref $name eq 'ARRAY' ? $name : [$name]; - Class::MOP::Class - ->initialize($caller) - ->add_class_attribute( $_, %options ) - for @{ $attrs }; + $meta->add_class_attribute( $_, %options ) + for @{ $attrs }; } 1;