percona/percona-toolkit
1
0
Fork 0
mirror of https://github.com/percona/percona-toolkit.git synced 2025-09-14 23:40:58 +00:00
Code Issues Packages Projects Releases Wiki Activity

Minor fix to get Mo::has(handles => qr/.*/) working again

Browse Source
This commit is contained in:
Brian Fraser
2013-01-31 20:00:09 -03:00
parent 5b9932ca28
commit a814b0be64
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Mo.pm
View File

@@ -140,6 +140,8 @@ our %metadata_for;
} }
my %export_for; my %export_for;
%Mo::Internal::Keyword = map { $_ => 1 } qw(has extends override);
sub Mo::import { sub Mo::import {
# Set warnings and strict for the caller. # Set warnings and strict for the caller.
warnings->import(qw(FATAL all)); warnings->import(qw(FATAL all));
@@ -351,7 +353,7 @@ sub _has_handles {
map { $_, $_ } map { $_, $_ }
grep { $_ =~ $handles } grep { $_ =~ $handles }
grep { !exists $Mo::Object::{$_} && $target_class->can($_) } grep { !exists $Mo::Object::{$_} && $target_class->can($_) }
grep { $_ ne 'has' && $_ ne 'extends' } grep { !$Mo::Internal::Keyword{$_} }
keys %{ _stash_for $target_class } keys %{ _stash_for $target_class }
}; };
} }