我如何在Perl中修补一个实例方法？

发布时间：2020-12-15 21:21:31 所属栏目：大数据来源：网络整理

导读：我正在尝试以猴子补丁(duck-punch :-)一个LWP :: UserAgent实例，像这样： sub _user_agent_get_basic_credentials_patch { return ($username,$password);}my $agent = LWP::UserAgent-new();$agent-get_basic_credentials = _user_agent_get_basic_credent

我正在尝试以猴子补丁(duck-punch :-)一个LWP :: UserAgent实例，像这样：

sub _user_agent_get_basic_credentials_patch {
  return ($username,$password);
}

my $agent = LWP::UserAgent->new();
$agent->get_basic_credentials = _user_agent_get_basic_credentials_patch;

这不是正确的语法 – 它产生：

Can’t modify non-lvalue subroutine
call at [module] line [lineno].

我记得(从Perl编程)，调度查找是基于祝福的包(ref($ agent))，我相信)动态执行，所以我不知道猴子修补程序如何甚至可以工作，而不影响保佑的包。

我知道我可以对UserAgent进行子类化，但是我更喜欢更简洁的猴子补丁方法。同意成年人和你有什么;-)

解决方法

如果动态范围(使用本地)不令人满意，您可以自动化自定义软件包重现技术：

MONKEY_PATCH_INSTANCE:
{
  my $counter = 1; # could use a state var in perl 5.10

  sub monkey_patch_instance
  {
    my($instance,$method,$code) = @_;
    my $package = ref($instance) . '::MonkeyPatch' . $counter++;
    no strict 'refs';
    @{$package . '::ISA'} = (ref($instance));
    *{$package . '::' . $method} = $code;
    bless $_[0],$package; # sneaky re-bless of aliased argument
  }
}

用法示例：

package Dog;
sub new { bless {},shift }
sub speak { print "woof!n" }

...

package main;

my $dog1 = Dog->new;
my $dog2 = Dog->new;

monkey_patch_instance($dog2,speak => sub { print "yap!n" });

$dog1->speak; # woof!
$dog2->speak; # yap!

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!