sub import{
$^H |= _strict_bits; # strict->import;
- ${^WARNING_BITS} = $warnings::Bits{all}; # warnings->import;
+ ${^WARNING_BITS} |= $warnings::Bits{all}; # warnings->import;
return;
}
}
$^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;
map{ ref($_) ? $_ : Mouse::Util::resolve_metaclass_alias($type => $_, trait => 1) }
@traits;
- print "[@traits]\n";
-
not_supported('-traits');
require Mouse::Util::MetaRole;
Mouse::Util::MetaRole::apply_metaclass_roles(
=head1 VERSION
-This document describes Mouse version 0.40
+This document describes Mouse version 0.40_04
=head1 SYNOPSIS