Business-Mondo
view release on metacpan - search on metacpan
view release on metacpan or search on metacpan
t/business/mondo.t view on Meta::CPAN
client
transactions
transaction
accounts
/,
);
isa_ok( $Mondo->client,'Business::Mondo::Client' );
# monkey patching Mojo::UserAgent here to make this test work without
# having to actually hit the endpoints or use credentials
no warnings 'redefine';
no warnings 'once';
my $mock = Test::MockObject->new;
$mock->mock( 'success',sub { 1 } );
$mock->mock( 'headers',sub { $mock } );
$mock->mock( 'res',sub { $mock } );
$mock->mock( 'json',sub { $mock } );
*Mojo::UserAgent::post = sub { $mock };
*Mojo::UserAgent::put = sub { $mock };
*Mojo::UserAgent::patch = sub { $mock };
view all matches for this distributionview release on metacpan - search on metacpan
( run in 0.542 second using v1.00-cache-2.02-grep-82fe00e-cpan-2c419f77a38b )