++ed by:

1 non-PAUSE user(s).

Masaki Nakagawa

NAME

Test::Mock::LWP::Conditional - stubbing on LWP request

SYNOPSIS

    use LWP::UserAgent;
    use HTTP::Response;

    use Test::More
    use Test::Mock::LWP::Conditional;

    my $uri = 'http://example.com/';

    # global
    Test::Mock::LWP::Conditional->stub_request($uri => HTTP::Response->new(503));
    is LWP::UserAgent->new->get($uri)->code => 503;

    # lexical
    my $ua = LWP::UserAgent->new;
    $ua->stub_request($uri => sub { HTTP::Response->new(500) });
    is $ua->get($uri)->code => 500;
    is LWP::UserAgent->new->get($uri)->code => 503;

    # reset
    Test::Mock::LWP::Conditional->reset_all;
    is $ua->get($uri)->code => 200;
    is LWP::UserAgent->new->get($uri)->code => 200;

DESCRIPTION

This module stubs out LWP::UserAgent's request.

METHODS

  • stub_request($uri, $res)

    Sets stub response for requesed URI.

  • reset_all

    Clear all stub requests.

AUTHOR

NAKAGAWA Masaki <masaki@cpan.org>

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Test::Mock::LWP, Test::Mock::LWP::Dispatch, Test::MockHTTP, Test::LWP::MockSocket::http

LWP::UserAgent

https://github.com/bblimke/webmock, https://github.com/chrisk/fakeweb