X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FExporter.pm;h=d2bf45e83f1fb8b0df8b83f798d3e5d46580c801;hb=aa2d2e2c0621cdcb8b2ec7cf49beb3a9de11803c;hp=102165575c0648b8aeeb52d44cee942ab4fa9ea6;hpb=29b12beade3d94ce04739d0c7c77316f528af9b2;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm index 1021655..d2bf45e 100644 --- a/lib/Mouse/Exporter.pm +++ b/lib/Mouse/Exporter.pm @@ -14,7 +14,7 @@ require Mouse::Util; sub import{ $^H |= _strict_bits; # strict->import; - ${^WARNING_BITS} = $warnings::Bits{all}; # warnings->import; + ${^WARNING_BITS} |= $warnings::Bits{all}; # warnings->import; return; } @@ -166,7 +166,7 @@ sub do_import { } $^H |= _strict_bits; # strict->import; - ${^WARNING_BITS} = $warnings::Bits{all}; # warnings->import; + ${^WARNING_BITS} |= $warnings::Bits{all}; # warnings->import; if($spec->{INIT_META}){ my $meta; @@ -258,7 +258,7 @@ Mouse::Exporter - make an import() and unimport() just like Mouse.pm =head1 VERSION -This document describes Mouse version 0.40_01 +This document describes Mouse version 0.40_05 =head1 SYNOPSIS