测试包含LWP::UserAgent的模块

gistfile1.pl

use Test::More;
use Test::MockModule;
use HTTP::Request;

our $request_count = 0;
my $mock_ua = Test::MockModule->new('LWP::UserAgent');
$mock_ua->mock('request', sub {
    $request_count++;
    HTTP::Response->new(200);
});

my $ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(GET => 'http://www.example.com/');

$ua->request($req);

is $request_count, 1;