From: Dave Rolsky <autarch@urth.org>
Date: Thu, 7 Aug 2008 14:17:40 +0000 (+0000)
Subject: Add Moose::_get_caller for more backwards compat
X-Git-Tag: 0_55_01~43^2~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=7c4676ef552c564e0e05233b7354e6c3e4794684;p=gitmo%2FMoose.git

Add Moose::_get_caller for more backwards compat
---

diff --git a/lib/Moose.pm b/lib/Moose.pm
index 2edbffe..5eb3770 100644
--- a/lib/Moose.pm
+++ b/lib/Moose.pm
@@ -136,6 +136,11 @@ sub init_meta {
                            );
 }
 
+# This may be used in some older MooseX extensions.
+sub _get_caller {
+    goto &Moose::Exporter::_get_caller;
+}
+
 sub _init_meta {
     shift;
     my %args = @_;