X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMouse%2FExporter.pm;h=dd46f4329b9429f9000df06ba1a4de67060f3116;hb=fd2b172a4657cb6cc47976d2e66cdba4bdfa579d;hp=98f7eca943105661e8baf39ccf6d00e75b68d638;hpb=08ee26f4abda2e8545db7e1f335fab059b80831e;p=gitmo%2FMouse.git diff --git a/lib/Mouse/Exporter.pm b/lib/Mouse/Exporter.pm index 98f7eca..dd46f43 100644 --- a/lib/Mouse/Exporter.pm +++ b/lib/Mouse/Exporter.pm @@ -114,7 +114,7 @@ sub build_import_methods{ $args{EXPORTS} = \%exports; $args{REMOVABLES} = \@removables; - $args{groups}{all} ||= \@all; + $args{groups}{all} ||= \@all; if(my $default_list = $args{groups}{default}){ my %default; @@ -136,7 +136,6 @@ sub build_import_methods{ return (\&do_import, \&do_unimport); } - # the entity of general import() sub do_import { my($package, @args) = @_; @@ -169,7 +168,8 @@ sub do_import { } } - $^H |= $strict_bits; # strict->import; + # strict->import; + $^H |= $strict_bits; # warnings->import('all', FATAL => 'recursion'); ${^WARNING_BITS} |= $warnings::Bits{all}; ${^WARNING_BITS} |= $warnings_extra_bits; @@ -182,11 +182,11 @@ sub do_import { if(@traits){ my $type = (split /::/, ref $meta)[-1]; # e.g. "Class" for "My::Meta::Class" - @traits = - map{ - ref($_) ? $_ - : Mouse::Util::resolve_metaclass_alias($type => $_, trait => 1) - } @traits; + @traits = map{ + ref($_) + ? $_ + : Mouse::Util::resolve_metaclass_alias($type => $_, trait => 1) + } @traits; require Mouse::Util::MetaRole; Mouse::Util::MetaRole::apply_metaroles( @@ -267,7 +267,7 @@ Mouse::Exporter - make an import() and unimport() just like Mouse.pm =head1 VERSION -This document describes Mouse version 0.68 +This document describes Mouse version 0.87 =head1 SYNOPSIS @@ -277,8 +277,8 @@ This document describes Mouse version 0.68 use Mouse::Exporter; Mouse::Exporter->setup_import_methods( - as_is => [ 'has_rw', 'other_sugar', \&Some::Random::thing ], - also => 'Mouse', + as_is => [ 'has_rw', 'other_sugar', \&Some::Random::thing ], + also => 'Mouse', ); sub has_rw {