Make prereq requirements explicit in code

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

diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm
index 8572aae..4666903 100644 (file)
--- a/lib/MooseX/ClassAttribute.pm
+++ b/lib/MooseX/ClassAttribute.pm
@@ -3,57 +3,60 @@ package MooseX::ClassAttribute;
 use strict;
 use warnings;
 
-our $VERSION   = '0.12';
-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.98 ();
+use Moose 2.00 ();
 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 $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;
@@ -109,10 +112,6 @@ provides introspection methods for class attributes.
 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,
@@ -147,10 +146,6 @@ To donate, log into PayPal and send money to autarch@urth.org or use
 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
@@ -158,11 +153,4 @@ C<bug-moosex-classattribute@rt.cpan.org>, or through the web interface
 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