X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute.pm;h=1fb7065c0c358f730242cc6e6906be439f6f9f79;hb=0d0bf8c3010d7195657d3a00559af327afd3d463;hp=15239a7224a51ac4deaf18f2b8e4cd4b92982ac1;hpb=4c4accf6b978ef42720771a149b3dd82ce167815;p=gitmo%2FMooseX-ClassAttribute.git diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm index 15239a7..1fb7065 100644 --- a/lib/MooseX/ClassAttribute.pm +++ b/lib/MooseX/ClassAttribute.pm @@ -3,40 +3,29 @@ package MooseX::ClassAttribute; use strict; use warnings; -our $VERSION = '0.11'; +our $VERSION = '0.13'; our $AUTHORITY = 'cpan:DROLSKY'; -use Moose 0.97 (); +use Moose 0.98 (); use Moose::Exporter; 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_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'], - application_to_instance => [ - 'MooseX::ClassAttribute::Trait::Application::ToInstance' - ], - }, - ); -} + +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; @@ -50,14 +39,12 @@ sub class_has { 1; +# ABSTRACT: Declare class attributes Moose-style + __END__ =pod -=head1 NAME - -MooseX::ClassAttribute - Declare class attributes Moose-style - =head1 SYNOPSIS package My::Class; @@ -151,10 +138,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 @@ -162,11 +145,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-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