NAME
Test::Stub - Stub! Stub! Stub!
SYNOPSIS
use
Test::Stub;
# DSL style
my
$agent
= LWP::UserAgent->new();
stub(
$agent
)->get(HTTP::Response->new(200,
"OK"
));
# simple style
my
$agent
= LWP::UserAgent->new();
make_stub(
$agent
,
'get'
, HTTP::Response->new(200,
"OK"
));
DESCRIPTION
Test::Stub is a simple stubbing library for Perl5.
EXPORTABLE FUNCTIONS
- stub($stuff) : Test::Stub::Driver
-
Create a new instance of Test::Stub::Driver.
- make_stub($object, $method, $stub) : Undef
-
Make monadic class from blessed($object) and add a $method with $stub.
Test::Stub::Driver
This class only provides a AUTOLOAD method.
AUTOLOAD method rebless the $stuff
to anonymous class.
For example. After calling following code:
stub(
$stuff
)->foo(
'bar'
);
$stuff->foo()
returns 'bar'.
AUTHOR
Tokuhiro Matsuno <tokuhirom AAJKLFJEF@ GMAIL COM>
SEE ALSO
The interface was taken from Test::Double.
LICENSE
Copyright (C) Tokuhiro Matsuno
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.