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

[gitmo/MooseX-ClassAttribute.git] / lib / MooseX / ClassAttribute.pm

diff --git a/lib/MooseX/ClassAttribute.pm b/lib/MooseX/ClassAttribute.pm
index 233585e..9eb4d88 100644 (file)
--- 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)