我正在尝试以猴子补丁(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!