use strict;
use warnings;
-our $VERSION = '0.12';
-our $AUTHORITY = 'cpan:DROLSKY';
-
-use Moose 0.98 ();
+use Moose 1.23 ();
use Moose::Exporter;
+use Moose::Util;
use MooseX::ClassAttribute::Trait::Class;
use MooseX::ClassAttribute::Trait::Role;
use MooseX::ClassAttribute::Trait::Application::ToClass;
use MooseX::ClassAttribute::Trait::Application::ToRole;
-Moose::Exporter->setup_import_methods( with_meta => ['class_has'] );
-
-sub init_meta {
- shift;
- my %p = @_;
-
- 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'],
- },
- );
-}
+Moose::Exporter->setup_import_methods(
+ with_meta => ['class_has'],
+ 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'],
+ },
+);
sub class_has {
my $meta = shift;
my $name = shift;
- my %options = @_;
my $attrs = ref $name eq 'ARRAY' ? $name : [$name];
+ my %options = ( definition_context => Moose::Util::_caller_info(), @_ );
+
$meta->add_class_attribute( $_, %options ) for @{$attrs};
}
1;
+# ABSTRACT: Declare class attributes Moose-style
+
__END__
=pod
-=head1 NAME
-
-MooseX::ClassAttribute - Declare class attributes Moose-style
-
=head1 SYNOPSIS
package My::Class;
Class attributes themselves do the
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
-attributes.
-
=head2 Cooperation with Metaclasses and Traits
This module should work with most attribute metaclasses and traits,
the button on this page:
L<http://www.urth.org/~autarch/fs-donation.html>
-=head1 AUTHOR
-
-Dave Rolsky, C<< <autarch@urth.org> >>
-
=head1 BUGS
Please report any bugs or feature requests to
at L<http://rt.cpan.org>. I will be notified, and then you'll
automatically be notified of progress on your bug as I make changes.
-=head1 COPYRIGHT & LICENSE
-
-Copyright 2007-2010 Dave Rolsky, All Rights Reserved.
-
-This program is free software; you can redistribute it and/or modify
-it under the same terms as Perl itself.
-
=cut