Как ответил Fayland Lam , правильный синтаксис:

    local *LWP::UserAgent::get_basic_credentials = sub {
        return ( $username, $password );
    };

, Но это исправляет (динамично ограниченный по объему) целый класс и не только экземпляр. Можно, вероятно, сойти с рук это в случае.

, Если Вы действительно хотите влиять просто на экземпляр, используйте разделение на подклассы, Вы описали. Это может быть сделано 'на лету' как это:

{
   package My::LWP::UserAgent;
   our @ISA = qw/LWP::UserAgent/;
   sub get_basic_credentials {
      return ( $username, $password );
   };

   # ... and rebless $agent into current package
   $agent = bless $agent;
}

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;

Вы не имеете 1, но 2 проблемы здесь, потому что это - то, что Вы делаете:

( $agent->get_basic_credentials() ) = _user_agent_get_basic_credentials_patch(); 

с обеих сторон случаи, Вы называете нижние индексы вместо того, чтобы просто обратиться к ним.

assign the result of 
              '_user_agent_get_basic_credentials_patch' 
to the value that was returned from
              'get_basic_credentials';

Эквивалентная логика:

{
   package FooBar; 
   sub foo(){ 
         return 5; 
   }
   1;
}
my $x =  bless( {}, "FooBar" ); 
sub baz(){ 
      return 1; 
}
$x->foo() = baz(); 
#   5 = 1;  

Так ее неудивительное его жалоба.

Ваш "фиксированный" код в Вашем ответе является также неправильным, по той же причине, с другой проблемой, которую Вы не можете понять:

 $agent->{get_basic_credentials} = _user_agent_get_basic_credentials_patch;

Это скорее испорчено логика, думая, что она работает как Вы, думают, что она делает.

то, Что это действительно делает:

1. Dereference $agent, which is a HashRef
2. Set the hash-key 'get_basic_credentials' to the result from _user_agent_get_basic_credentials_patch

Вы не присваивали функции вообще.

{
package FooBar; 
sub foo(){ 
     return 5; 
} 
1;
}
my $x =  bless( {}, "FooBar" ); 
sub baz(){ 
  return 1; 
}
$x->{foo} = baz(); 
#  $x is now  = ( bless{ foo => 1 }, "FooBar" ); 
#  $x->foo(); # still returns 5
#  $x->{foo}; # returns 1; 

исправление Обезьяны является довольно злым, конечно, и я самостоятельно не видел, как переопределить метод на исключительном экземпляре чего-то как этот.

Однако то, что можно сделать, является этим:

  {
     no strict 'refs'; 
     *{'LWP::UserAgent::get_basic_credentials'} = sub { 
         # code here 

     }; 
  }

, Который глобально заменит get_basic_credentials поведение секций кода (я мог бы быть неправым несколько, кто-то исправляет меня)

, Если Вы действительно потребность сделать это на основе на экземпляр Вы могли бы, вероятно, сделать немного наследования классов и просто создать производный класс вместо этого, и/или динамично создать новые пакеты.

Perl думает, что Вы пытаетесь назвать подпрограмму слева от присвоения, которое является, почему это жалуется. Я думаю, что можно быть в состоянии бить таблицу символов Perl непосредственно (использующий *LWP::UserAgent::get_basic_credentials или что-то), но я испытываю недостаток в Perl-fu для корректного создания того колдовства.

Редактирование: Это было неправильной попыткой решения, которое я сохраняю для потомства. Посмотрите на ответы upvoted/accepted.:-)

А-ч, я просто понял, что синтаксису нужна определенная корректировка:

$agent->{get_basic_credentials} = _user_agent_get_basic_credentials_patch;

Без эти {} разделители это похоже на вызов метода (который не был бы допустимым l-значением).

я все еще хотел бы знать, как метод экземпляра связывается/смотрится через этот синтаксис. TIA!

http://www.google.com/codesearch/p?hl=en#tgg5_3LXifM/Authen-Simple-HTTP-0.1/lib/Authen/Simple/HTTP.pm&q=get_basic_credentials

В духе "создания Perl твердых возможных вещей", вот пример того, как сделать исправление обезьяны единственного экземпляра, не унавоживая с наследованием.

Я НЕ рекомендую Вам, на самом деле делая это в любом коде, который кто-либо еще должен будет поддерживать, отладить или зависеть от (как Вы, сказал, соглашающиеся взрослые):

#!/usr/bin/perl

use strict;
use warnings;
{

    package Monkey;

    sub new { return bless {}, shift }
    sub bar { return 'you called ' . __PACKAGE__ . '::bar' }
}

use Scalar::Util qw(refaddr);

my $f = Monkey->new;
my $g = Monkey->new;
my $h = Monkey->new;

print $f->bar, "\n";    # prints "you called Monkey::bar"

monkey_patch( $f, 'bar', sub { "you, sir, are an ape" } );
monkey_patch( $g, 'bar', sub { "you, also, are an ape" } );

print $f->bar, "\n";    # prints "you, sir, are an ape"
print $g->bar, "\n";    # prints "you, also, are an ape"
print $h->bar, "\n";    # prints "you called Monkey::bar"

my %originals;
my %monkeys;

sub monkey_patch {
    my ( $obj, $method, $new ) = @_;
    my $package = ref($obj);
    $originals{$method} ||= $obj->can($method) or die "no method $method in $package";
    no strict 'refs';
    no warnings 'redefine';
    $monkeys{ refaddr($obj) }->{$method} = $new;
    *{ $package . '::' . $method } = sub {
        if ( my $monkey_patch = $monkeys{ refaddr( $_[0] ) }->{$method} ) {
            return $monkey_patch->(@_);
        } else {
            return $originals{$method}->(@_);
        }
    };
}