diff --git a/lib/mop/internals/util.pm b/lib/mop/internals/util.pm index 221ff86..c016acf 100644 --- a/lib/mop/internals/util.pm +++ b/lib/mop/internals/util.pm @@ -16,7 +16,7 @@ my %OVERRIDDEN; sub install_sub { my ($to, $from, $sub) = @_; no strict 'refs'; - if (defined &{ "${to}::${sub}" }) { + if (*{ "${to}::${sub}" }) { push @{ $OVERRIDDEN{$to}{$sub} //= [] }, \&{ "${to}::${sub}" }; } no warnings 'redefine';