File Coverage

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

Criterion	Covered	Total	%
statement	16	17	94.1
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	1	1	100.0
total	23	25	92.0

package Test::Mock::Furl::HTTP;
use strict;
use warnings;
use Test::MockObject;
use parent 'Exporter';
our @EXPORT = qw/$Mock_furl_http/;

our $Mock_furl_http;

BEGIN {
    $Mock_furl_http = Test::MockObject->new;
    $Mock_furl_http->fake_module(
        'Furl::HTTP',
        new => sub {
            $Mock_furl_http->{new_args} = [@_];
            $Mock_furl_http;
        }
    );
}

#$Mock_furl_http->set_always('request' => '');

sub new {
    $Mock_furl_http;
};

$Mock_furl_http->mock(
    '-new_args' => sub {
        delete $Mock_furl_http->{new_args};
    },
);

package # hide from PAUSE
    Furl::HTTP;

our $VERSION = 'Mocked';

1;

__END__