use strict;
use warnings;
-our $VERSION = '0.08';
+our $VERSION = '0.10';
our $AUTHORITY = 'cpan:DROLSKY';
-use Moose 0.73_01 ();
+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
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;