/ 
Test-Mock-Signature-0.01
River stage one • 1 direct dependent • 1 total dependent
/ Test::Mock::Signature

NAME

Test::Mock::Signature - base class for mock modules.

SYNOPSIS

Create module for mocking CGI:

package Your::Mock::Module;

use strict;
use warnings;

require Test::Mock::Signature;
our @ISA = qw(Test::Mock::Signature);

our $CLASS = 'CGI';

sub init {
    my $mock = shift;

    $mock->method('new')->callback(
        sub {
            my $class = shift;

            return bless({}, $class);
        }
    );
}

Use it in tests:

use Test::More plan => 1;
use Your::Mock::Module qw( any );
use CGI;

my $mock = Your::Mock::Module->new;
$mock->method('param' => any)->callback( sub { 42 } );

my $request = CGI->new;

ok($request->param('something'), 42, 'mocked');

DESCRIPTION

This module is a base class for your mock module with ability to set callbacks for defined signature of your method.

METHODS

import( any )

This method imports magic constant any from class Data::PatternCompare and does some magic behind the scene. Also it takes real class name from your our $CLASS variable.

new()

Default constructor. To simplify inheritance there are another method defined init() which will be called from constructor.

init()

Empty method invoked from constructor new(). Can be overrided to define default mocked methods e.g.: constructors.

method($method_name, [ @params ]) : Test::Mock::Signature::Meta

This method does the actual mocking of methods e.g.:

my $mock = Your::Mock::Module->new;
my $cgi  = new CGI;

$mock->method(param => 'get_param')->callback(
    sub {
        return 42;
    }
);
print $cgi->param('get_param'); # 42
print $cgi->param('ANYTHING_ELSE'); # will give original CGI::param behavior

@params can contain object any exported by the mock module if needed for detailed reference please look to: Data::PatternCompare.

Returns object of Test::Mock::Signature::Meta class.

clear($method_name, [ @params ])

Clear mocking behavior from method. Takes $method_name as a first parameter. Prototype is optional. If you put only method name it remove all mocks from this method. If you put prototype parameters it finds this signature and delete it. e.g.:

$mock->clear(param => 'get_param'); # delete exact signature
$mock->clear('param'); # delete all mocked signatures from method "param"

dispatcher($method_name) : Test::Mock::Signature::Dispatcher

This method returns dispatcher object for the given $method_name. Currently it's exposed as public just in case. Used for internal use and don't have any real user examples.

AUTHOR

cono <cono@cpan.org>

COPYRIGHT

Copyright 2014 - cono

LICENSE

Artistic v2.0

SEE ALSO

Data::PatternCompare