Find out who redefined a subroutine

[Dallaylaen]

I've been asked recently how to tell which perl module overrides a function. Here's an exapmle I managed to write. It's incomplete and most certainly buggy, but I don't think the task in question is worth a full-blown CPAN module anyway.

#!/usr/bin/perl -w

use strict;

BEGIN {
use Guard;
use Carp;
{
  my $guard = guard { Carp::cluck "Function replaced!" };
  my $code = \&time;
  *time = sub { return $code->(@_); undef $guard; };
};
};

BEGIN { print time(), "\n"; };

use Time::HiRes qw(time);

print time, "\n";

I welcome critique on this one.

[tobyink]

Ta da!

sub sub::source {
    require Sub::Identify;
    my ($class, $func) = @_;
    my $code = $class->can($func) or return;
    return Sub::Identify::stash_name($code);
}

{
    package MyApp;
    use Time::HiRes qw(time);
    use Carp;
}

# Where do MyApp's subs come from?
#
print MyApp->sub::source('carp'), "\n";
print MyApp->sub::source('time'), "\n";

# Where do Carp's subs come from?
#
print Carp->sub::source('carp'), "\n";
print Carp->sub::source('import'), "\n";

Though it's worth noting that Sub::Name is able to fool Sub::Identify. Also, Moose/Moo/etc do stringy eval stuff that fools Sub::Identify (deliberately).

[Dallaylaen]

Aha, so there *is* a full-blown CPAN module for this. Thanks for noting!

My code can be fooled, too.

Just copy original subref to a private variable and it would think the sub is still the original one.

[mwray]

Maybe a way to prevent being fooled is to MD5 the sub, and sign it.