use strict;
use warnings;
-our $VERSION = '0.10';
+our $VERSION = '0.10';
our $AUTHORITY = 'cpan:DROLSKY';
-use Moose 0.89 ();
+use Moose 0.96 ();
use Moose::Exporter;
-use MooseX::ClassAttribute::Role::Meta::Class;
+use MooseX::ClassAttribute::Trait::Class;
+use MooseX::ClassAttribute::Trait::Role;
+use MooseX::ClassAttribute::Trait::Application::ToClass;
+use MooseX::ClassAttribute::Trait::Application::ToRole;
+use MooseX::ClassAttribute::Trait::Application::ToInstance;
-Moose::Exporter->setup_import_methods
- ( with_caller => [ 'class_has' ] );
+Moose::Exporter->setup_import_methods( with_meta => ['class_has'] );
-
-sub init_meta
-{
+sub init_meta {
shift;
my %p = @_;
- Moose->init_meta(%p);
-
- return
- Moose::Util::MetaRole::apply_metaclass_roles
- ( for_class => $p{for_class},
- metaclass_roles => [ 'MooseX::ClassAttribute::Role::Meta::Class' ],
- );
+ return Moose::Util::MetaRole::apply_metaclass_roles(
+ for => $p{for_class},
+ class_metaroles => {
+ class => ['MooseX::ClassAttribute::Trait::Class'],
+ },
+ role_metaroles => {
+ role => ['MooseX::ClassAttribute::Trait::Role'],
+ application_to_class =>
+ ['MooseX::ClassAttribute::Trait::Application::ToClass'],
+ application_to_role =>
+ ['MooseX::ClassAttribute::Trait::Application::ToRole'],
+ application_to_instance => [
+ 'MooseX::ClassAttribute::Trait::Application::ToInstance'
+ ],
+ },
+ );
}
-sub class_has
-{
- my $caller = shift;
+sub class_has {
+ 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;
My::Class->Cache()->{thing} = ...;
-
=head1 DESCRIPTION
This module allows you to declare class attributes in exactly the same
=head2 Implementation and Immutability
This module will add a role to your class's metaclass, See
-L<MooseX::ClassAttribute::Role::Meta::Class> for details. This role
+L<MooseX::ClassAttribute::Trait::Class> for details. This role
provides introspection methods for class attributes.
Class attributes themselves do the
-L<MooseX::ClassAttribute::Role::Meta::Attribute> role.
+L<MooseX::ClassAttribute::Trait::Attribute> role.
There is also a L<MooseX::ClassAttribute::Meta::Method::Accessor>
which provides part of the inlining implementation for class