File Coverage

blib/lib/Test/Mock/Furl/Response.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Test::Mock::Furl::Response;
use strict;
use warnings;
use Test::MockObject;
use parent 'Exporter';
our @EXPORT = qw/$Mock_furl_res $Mock_furl_resp $Mock_furl_response/;

our $Mock_furl_res;
our $Mock_furl_resp;
our $Mock_furl_response;

BEGIN {
    $Mock_furl_response = $Mock_furl_resp = $Mock_furl_res = Test::MockObject->new;
    $Mock_furl_res->fake_module('Furl::Response');
    $Mock_furl_res->fake_new('Furl::Response');
}

our %Headers;

$Mock_furl_res->mock(
    'header' => sub {
        return $Headers{$_[1]};
    },
);
$Mock_furl_res->set_always('code' => 200);
$Mock_furl_res->set_always('content' => '');
$Mock_furl_res->set_always('is_success' => 1);

package # hide from PAUSE
    Furl::Response;

our $VERSION = 'Mocked';

1;

__END__