X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMooseX-ClassAttribute.git;a=blobdiff_plain;f=lib%2FMooseX%2FClassAttribute.pm;fp=lib%2FMooseX%2FClassAttribute.pm;h=c43eccdb28b8474adc35749ba07d7444a01f3d86;hp=53a2a7c7f387368e131c531ae2d29726b5834aae;hb=b0871254d569eb8f5c63d806b22d38689d05534f;hpb=21035624ef44c6cfba4255e1ccdc7a472c472eef

diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm
index 53a2a7c..c43eccd 100644
--- a/lib/MooseX/ClassAttribute.pm
+++ b/lib/MooseX/ClassAttribute.pm
@@ -31,11 +31,19 @@ sub class_has {
 
     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