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

Mo: Added an override() export

Browse Source
This commit is contained in:
Brian Fraser fraserb@gmail.com
2013-01-14 12:48:03 -03:00
parent 8e36056359
commit cd32c04ed1
1 changed files with 11 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lib/Mo.pm
View File

@@ -177,6 +177,7 @@ sub Mo::import {
_set_package_isa($caller, @_); _set_package_isa($caller, @_);
_set_inherited_metadata($caller); _set_inherited_metadata($caller);
}, },
override => \&override,
has => sub { has => sub {
my $names = shift; my $names = shift;
for my $attribute ( ref $names ? @$names : $names ) { for my $attribute ( ref $names ? @$names : $names ) {
@@ -512,6 +513,16 @@ BEGIN {
} }
} }
sub override {
my ($methods, $code) = @_;
my $caller = scalar caller;
for my $method ( ref($methods) ? @$methods : $methods ) {
my $full_method = "${caller}::${method}";
*{_glob_for $full_method} = $code;
}
}
} }
1; 1;
# ########################################################################### # ###########################################################################