X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute.pm;h=4666903d26935db56a7e2427d5a8670f103e0306;hb=cd8784bb787360b59a0df1d8513633ce2bd593f4;hp=219b6ffaf66e842b416667fde5e61b82acd973e5;hpb=88b7f2c81c47c0498b82d95a4f9fc71258d689f1;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm index 219b6ff..4666903 100644 --- a/lib/MooseX/ClassAttribute.pm +++ b/lib/MooseX/ClassAttribute.pm @@ -3,61 +3,60 @@ package MooseX::ClassAttribute; use strict; use warnings; -our $VERSION = '0.10'; -our $AUTHORITY = 'cpan:DROLSKY'; +# This module doesn't really need these pragmas - this is just for the benefit +# of prereq scanning. +require namespace::clean 0.20; +require namespace::autoclean 0.11; -use Moose 0.89 (); +use Moose 2.00 (); use Moose::Exporter; -use MooseX::ClassAttribute::Role::Meta::Class; -use MooseX::ClassAttribute::Role::Meta::Role; -use MooseX::ClassAttribute::Role::Meta::Application::ToClass; -use MooseX::ClassAttribute::Role::Meta::Application::ToRole; -use MooseX::ClassAttribute::Role::Meta::Application::ToInstance; - -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::Role::Meta::Class'], - }, - role_metaroles => { - role => ['MooseX::ClassAttribute::Role::Meta::Role'], - application_to_class => - ['MooseX::ClassAttribute::Role::Meta::Application::ToClass'], - application_to_role => - ['MooseX::ClassAttribute::Role::Meta::Application::ToRole'], - application_to_instance => [ - 'MooseX::ClassAttribute::Role::Meta::Application::ToInstance' - ], - }, - ); -} +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'], + 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 $meta = shift; + my $name = shift; my $attrs = ref $name eq 'ARRAY' ? $name : [$name]; + my %options = ( definition_context => _caller_info(), @_ ); + $meta->add_class_attribute( $_, %options ) for @{$attrs}; } +# Copied from Moose::Util in 2.06 +sub _caller_info { + my $level = @_ ? ( $_[0] + 1 ) : 2; + my %info; + @info{qw(package file line)} = caller($level); + return \%info; +} + 1; +# ABSTRACT: Declare class attributes Moose-style + __END__ =pod -=head1 NAME - -MooseX::ClassAttribute - Declare class attributes Moose-style - =head1 SYNOPSIS package My::Class; @@ -86,41 +85,45 @@ This module allows you to declare class attributes in exactly the same way as object attributes, using C instead of C. You can use any feature of Moose's attribute declarations, including -overriding a parent's attributes, delegation (C), and -attribute metaclasses, and it should just work. The one exception is -the "required" flag, which is not allowed for class attributes. +overriding a parent's attributes, delegation (C), attribute traits, +etc. All features should just work. The one exception is the "required" flag, +which is not allowed for class attributes. The accessor methods for class attribute may be called on the class directly, or on objects of that class. Passing a class attribute to -the constructor will not set it. +the constructor will not set that attribute. =head1 FUNCTIONS This class exports one function when you use it, C. This works exactly like Moose's C, but it declares class attributes. -One little nit is that if you include C in your class, you -won't remove the C function. To do that you must include -C as well. +One little nit is that if you include C in your class, you won't +remove the C function. To do that you must include C as well. Or you can just use L +instead. =head2 Implementation and Immutability This module will add a role to your class's metaclass, See -L for details. This role +L for details. This role provides introspection methods for class attributes. Class attributes themselves do the -L role. - -There is also a L -which provides part of the inlining implementation for class -attributes. +L role. =head2 Cooperation with Metaclasses and Traits This module should work with most attribute metaclasses and traits, but it's possible that conflicts could occur. This module has been -tested to work with C. +tested to work with Moose's native traits. + +=head2 Class Attributes in Roles + +You can add a class attribute to a role. When that role is applied to a class, +the class will have the relevant class attributes added. Note that attribute +defaults will be calculated when the class attribute is composed into the +class. =head1 DONATIONS @@ -143,10 +146,6 @@ To donate, log into PayPal and send money to autarch@urth.org or use the button on this page: L -=head1 AUTHOR - -Dave Rolsky, C<< >> - =head1 BUGS Please report any bugs or feature requests to @@ -154,11 +153,4 @@ C, or through the web interface at L. 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-2008 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