From: Dave Rolsky <autarch@urth.org>
Date: Thu, 6 Dec 2007 22:22:21 +0000 (+0000)
Subject: Use Moose::_get_caller (unseemly, but maybe more flexible).
X-Git-Tag: 0.04~6
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=4c911e18f6ba9b36041a6730421681bfc73e71d9;p=gitmo%2FMooseX-ClassAttribute.git

Use Moose::_get_caller (unseemly, but maybe more flexible).
---

diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm
index 233585e..9eb4d88 100644
--- a/lib/MooseX/ClassAttribute.pm
+++ b/lib/MooseX/ClassAttribute.pm
@@ -87,7 +87,7 @@ sub class_has ## no critic RequireArgUnpacking
 # This is basically copied from Moose.pm
 sub unimport ## no critic RequireFinalReturn
 {
-    my $caller = caller();
+    my $caller = Moose::_get_caller(@_);
 
     no strict 'refs'; ## no critic ProhibitNoStrict
     foreach my $name (@EXPORT)