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

diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm
index ca822ba..53a2a7c 100644
--- a/lib/MooseX/ClassAttribute.pm
+++ b/lib/MooseX/ClassAttribute.pm
@@ -5,6 +5,7 @@ use warnings;
 
 use Moose 1.23 ();
 use Moose::Exporter;
+use Moose::Util;
 use MooseX::ClassAttribute::Trait::Class;
 use MooseX::ClassAttribute::Trait::Role;
 use MooseX::ClassAttribute::Trait::Application::ToClass;
@@ -27,10 +28,11 @@ Moose::Exporter->setup_import_methods(
 sub class_has {
     my $meta    = shift;
     my $name    = shift;
-    my %options = @_;
 
     my $attrs = ref $name eq 'ARRAY' ? $name : [$name];
 
+    my %options = ( definition_context => Moose::Util::_caller_info(), @_ );
+
     $meta->add_class_attribute( $_, %options ) for @{$attrs};
 }