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 53a2a7c..4666903 100644 (file)
--- a/lib/MooseX/ClassAttribute.pm
+++ b/lib/MooseX/ClassAttribute.pm
@@ -3,7 +3,12 @@ package MooseX::ClassAttribute;
 use strict;
 use warnings;
 
-use Moose 1.23 ();
+# 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 2.00 ();
 use Moose::Exporter;
 use Moose::Util;
 use MooseX::ClassAttribute::Trait::Class;
@@ -26,16 +31,24 @@ Moose::Exporter->setup_import_methods(
 );
 
 sub class_has {
-    my $meta    = shift;
-    my $name    = shift;
+    my $meta = shift;
+    my $name = shift;
 
     my $attrs = ref $name eq 'ARRAY' ? $name : [$name];
 
-    my %options = ( definition_context => Moose::Util::_caller_info(), @_ );
+    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