X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=2c3bdafdaf0b4f1802202624c8f2cc38ff29c4d9;hb=31c5194bc6a176cec4de515163d27f174eba5c9b;hp=a34870026c8bf4dfd7d71b56bf90d7439e062dde;hpb=f3bb863f6a6ef09220bbf51bc4cea3874d862776;p=gitmo%2FMouse.git

diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm
index a348700..2c3bdaf 100644
--- a/lib/Mouse/Util.pm
+++ b/lib/Mouse/Util.pm
@@ -5,6 +5,9 @@ use warnings;
 use Exporter;
 
 use Carp qw(confess);
+use B ();
+
+use constant _MOUSE_VERBOSE => !!$ENV{MOUSE_VERBOSE};
 
 our @ISA       = qw(Exporter);
 our @EXPORT_OK = qw(
@@ -20,13 +23,16 @@ our @EXPORT_OK = qw(
     get_linear_isa
     get_code_info
 
+    get_code_package
+
     not_supported
 
     does meta dump
+    _MOUSE_VERBOSE
 );
 our %EXPORT_TAGS = (
     all  => \@EXPORT_OK,
-    meta => [qw(does meta dump)],
+    meta => [qw(does meta dump _MOUSE_VERBOSE)],
 );
 
 # Moose::Util compatible utilities
@@ -96,8 +102,6 @@ BEGIN {
         my ($coderef) = @_;
         ref($coderef) or return;
 
-        require B;
-
         my $cv = B::svref_2object($coderef);
         $cv->isa('B::CV') or return;
 
@@ -106,6 +110,18 @@ BEGIN {
 
         return ($gv->STASH->NAME, $gv->NAME);
     }
+
+    sub get_code_package{
+        my($coderef) = @_;
+
+        my $cv = B::svref_2object($coderef);
+        $cv->isa('B::CV') or return '';
+
+        my $gv = $cv->GV;
+        $gv->isa('B::GV') or return '';
+
+        return $gv->STASH->NAME;
+    }
 }
 
 # taken from Mouse::Util (0.90)
@@ -334,7 +350,7 @@ Mouse::Util - features, with or without their dependencies
 
 =head2 Class::MOP
 
-=head2 C<< is_class_loaded(ClassName) -> Bool >>
+=head3 C<< is_class_loaded(ClassName) -> Bool >>
 
 Returns whether C<ClassName> is actually loaded or not. It uses a heuristic which
 involves checking for the existence of C<$VERSION>, C<@ISA>, and any