add Sub::Exporter style caller() discovery

diff --git a/lib/Moose/Role.pm b/lib/Moose/Role.pm
index 2e6b187..55c283d 100644 (file)
--- a/lib/Moose/Role.pm
+++ b/lib/Moose/Role.pm
@@ -159,7 +159,12 @@ use Moose::Util::TypeConstraints;
     });
     
     sub import {
-        $CALLER = caller();
+        $CALLER =
+            ref $_[1] && defined $_[1]->{into} ? $_[1]->{into}
+          : ref $_[1]
+          && defined $_[1]->{into_level} ? caller( $_[1]->{into_level} )
+          :                                caller();
+
         
         strict->import;
         warnings->import;