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"));
is($agent->get('http://www.aiseikai.or.jp/')->code, 200);
# simple style
my $agent = LWP::UserAgent->new();
make_stub($agent, 'get', HTTP::Response->new(200, "OK"));
is($agent->get('http://www.aiseikai.or.jp/')->code, 200);
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.