Modernize metarole usage

[gitmo/MooseX-ClassAttribute.git] / lib / MooseX / ClassAttribute.pm

diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm
index 5de8257..b73e6b7 100644 (file)
--- a/lib/MooseX/ClassAttribute.pm
+++ b/lib/MooseX/ClassAttribute.pm
@@ -3,40 +3,29 @@ package MooseX::ClassAttribute;
 use strict;
 use warnings;
 
-our $VERSION   = '0.10';
+our $VERSION   = '0.13';
 our $AUTHORITY = 'cpan:DROLSKY';
 
-use Moose 0.96 ();
+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;
@@ -99,9 +88,10 @@ the constructor will not set that attribute.
 This class exports one function when you use it, C<class_has()>. This
 works exactly like Moose's C<has()>, but it declares class attributes.
 
-One little nit is that if you include C<no Moose> in your class, you
-won't remove the C<class_has()> function. To do that you must include
-C<no MooseX::ClassAttribute> as well.
+One little nit is that if you include C<no Moose> in your class, you won't
+remove the C<class_has()> function. To do that you must include C<no
+MooseX::ClassAttribute> as well. Or you can just use L<namespace::autoclean>
+instead.
 
 =head2 Implementation and Immutability
 
@@ -163,7 +153,7 @@ automatically be notified of progress on your bug as I make changes.
 
 =head1 COPYRIGHT & LICENSE
 
-Copyright 2007-2008 Dave Rolsky, All Rights Reserved.
+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.