X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute.pm;h=d142d41875cceb0241514de4d43e594ea35e7f05;hb=59ee60b453a133ceaca1d538e95040bcb24243ec;hp=772ca85757f87ad44dd235f5fed4392f4b0df5a3;hpb=7f8bac2f49eb3b198569f3d7b1dafebd6b89fecc;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm index 772ca85..d142d41 100644 --- a/lib/MooseX/ClassAttribute.pm +++ b/lib/MooseX/ClassAttribute.pm @@ -3,15 +3,15 @@ package MooseX::ClassAttribute; use strict; use warnings; -our $VERSION = '0.09'; +our $VERSION = '0.10'; our $AUTHORITY = 'cpan:DROLSKY'; -use Moose 0.74 (); +use Moose 0.89 (); use Moose::Exporter; use MooseX::ClassAttribute::Role::Meta::Class; Moose::Exporter->setup_import_methods - ( with_caller => [ 'class_has' ] ); + ( with_meta => [ 'class_has' ] ); sub init_meta @@ -30,15 +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_of($caller) - ->add_class_attribute( $_, %options ) - for @{ $attrs }; + $meta->add_class_attribute( $_, %options ) + for @{ $attrs }; } 1;