X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FExporter.pm;h=e6139707cc854e07a3842a1e2b62275a01c7a352;hb=aa3b1c110ba2bde693d43554dc853696ccd41866;hp=e44c2565f3c6960307907dca4cb5840bc1d095bf;hpb=57633577acaebd562d9bf8a798bb66f5840d88c7;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm index e44c256..e613970 100644 --- a/lib/Mouse/Exporter.pm +++ b/lib/Mouse/Exporter.pm @@ -9,13 +9,19 @@ my %SPEC; my $strict_bits; BEGIN{ $strict_bits = strict::bits(qw(subs refs vars)); } +my $warnings_extra_bits; +BEGIN{ $warnings_extra_bits = warnings::bits(FATAL => 'recursion') } + # it must be "require", because Mouse::Util depends on Mouse::Exporter, # which depends on Mouse::Util::import() require Mouse::Util; sub import{ - $^H |= $strict_bits; # strict->import; - ${^WARNING_BITS} |= $warnings::Bits{all}; # warnings->import; + # strict->import; + $^H |= $strict_bits; + # warnings->import('all', FATAL => 'recursion'); + ${^WARNING_BITS} |= $warnings::Bits{all}; + ${^WARNING_BITS} |= $warnings_extra_bits; return; } @@ -44,7 +50,7 @@ sub setup_import_methods{ } sub build_import_methods{ - my($class, %args) = @_; + my($self, %args) = @_; my $exporting_package = $args{exporting_package} ||= caller(); @@ -163,8 +169,10 @@ sub do_import { } } - $^H |= $strict_bits; # strict->import; - ${^WARNING_BITS} |= $warnings::Bits{all}; # warnings->import; + $^H |= $strict_bits; # strict->import; + # warnings->import('all', FATAL => 'recursion'); + ${^WARNING_BITS} |= $warnings::Bits{all}; + ${^WARNING_BITS} |= $warnings_extra_bits; if($spec->{INIT_META}){ my $meta; @@ -259,7 +267,7 @@ Mouse::Exporter - make an import() and unimport() just like Mouse.pm =head1 VERSION -This document describes Mouse version 0.50_03 +This document describes Mouse version 0.65 =head1 SYNOPSIS