XMLRPC::Liteでプロキシを使う

XMLRPC::Liteの普通の使い方。

my $res = XMLRPC::Lite
            -> proxy($serv)
            -> call ( $method, \%params )
            -> result;

いかんともし難い理由により、プロキシ経由しなきゃいけないとしよう。
こうなる。

my $res = XMLRPC::Lite
            -> proxy($serv,
               proxy => ['http' => 'http://proxy.serv:1111/'])
            -> call ( $method, \%params )
            -> result;

1時間くらい悩んだ。そもそもproxyって名前が被ってる。