X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute.pm;h=bbc58aea24f6720eba2ca7ed4ae39b82c5d2261d;hb=3d3d1cd7318e9f0ab7dd183ca6a6ac10a85d1756;hp=d3a3e63224f08545f98b15dafdae5af9afbf61f5;hpb=3e505970e29109d4eef1f58f6e0275dbe10e6c64;p=gitmo%2FMooseX-ClassAttribute.git

diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm
index d3a3e63..bbc58ae 100644
--- a/lib/MooseX/ClassAttribute.pm
+++ b/lib/MooseX/ClassAttribute.pm
@@ -3,6 +3,11 @@ package MooseX::ClassAttribute;
 use strict;
 use warnings;
 
+# This module doesn't really need these pragmas - this is just for the benefit
+# of prereq scanning.
+use namespace::clean 0.20 ();
+use namespace::autoclean 0.11 ();
+
 use Moose 2.00 ();
 use Moose::Exporter;
 use Moose::Util;
@@ -26,8 +31,8 @@ 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];
 
@@ -38,7 +43,7 @@ sub class_has {
 
 # Copied from Moose::Util in 2.06
 sub _caller_info {
-    my $level = @_ ? ($_[0] + 1) : 2;
+    my $level = @_ ? ( $_[0] + 1 ) : 2;
     my %info;
     @info{qw(package file line)} = caller($level);
     return \%info;