X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=gitmo%2FMouse.git;a=blobdiff_plain;f=lib%2FMouse%2FUtil.pm;h=e86da70900972e41507d506579831d270e9556b3;hp=a34870026c8bf4dfd7d71b56bf90d7439e062dde;hb=0449307510ab4425a6b340fee9bf85824eb994b1;hpb=f3bb863f6a6ef09220bbf51bc4cea3874d862776 diff --git a/lib/Mouse/Util.pm b/lib/Mouse/Util.pm index a348700..e86da70 100644 --- a/lib/Mouse/Util.pm +++ b/lib/Mouse/Util.pm @@ -6,6 +6,8 @@ use Exporter; use Carp qw(confess); +use constant _MOUSE_VERBOSE => !!$ENV{MOUSE_VERBOSE}; + our @ISA = qw(Exporter); our @EXPORT_OK = qw( find_meta @@ -23,10 +25,11 @@ our @EXPORT_OK = qw( 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