View on
MetaCPAN is shutting down
For details read Perl NOC. After June 25th this page will redirect to
Alexis Sukrieh > Test-TinyMocker-0.05 > Test::TinyMocker



Annotate this POD


View/Report Bugs
Module Version: 0.03   Source  




version 0.05


    use Test::More;
    use Test::TinyMocker;

    mock 'Some::Module'
        => method 'some_method'
        => should {
            return $mocked_value;

    # or

    mock 'Some::Module'
        => methods [ 'this_method', 'that_method' ]
        => should {
            return $mocked_value;

    # or 

    mock 'Some::Module::some_method'
        => should {
            return $mocked_value;

    # Some::Module::some_method() will now always return $mocked_value;

        # To restore the original method
        unmock 'Some::Module::some_method';

    # or
        unmock 'Some::Module' => method 'some_method';

    # or

    unmock 'Some::Module' => methods [ 'this_method', 'that_method' ];


Test::TinyMocker - a very simple tool to mock external modules


mock($module, $method_or_methods, $sub, $options)

This function allows you to overwrite the given method with an arbitrary code block. This lets you simulate soem kind of behaviour for your tests.

Alternatively, this method can be passed only two arguments, the first one will be the full path of the method (pcakge name + method name) and the second one the coderef.

An options HashRef can be passed as the last argument. Currently one option is supported: ignore_unknown (default false) which when sets to true allows to mock an unknown symbol.

Syntactic sugar is provided (method, methods and should) in order to let you write sweet mock statements:

    # This:
    mock('Foo::Bar', 'a_method', sub { return 42;});

    # is the same as:
    mock 'Foo::Bar' => method 'a_method' => should { return 42 };

    # or:
    mock 'Foo::Bar::a_method' => should { return 42 };

    # or also:
    mock('Foo::Bar::a_method', sub { return 42;});

Using multiple methods at the same time can be done with arrayrefs:

    # This:
    mock('Foo::Bar', ['a_method', 'b_method'], sub { 42 } );

    # is the same as:
    mock 'Foo::Bar' => methods ['a_method', 'b_method'] => should { 42 };

unmock($module, $method_or_methods)

Syntactic sugar is provided (method and methods) in order to let you write sweet unmock statements:

    # This:
    unmock('Foo::Bar', 'a_method');

    # is the same as:
    unmock 'Foo::Bar' => method 'a_method';

And using multiple methods at the same time:

    unmock 'Foo::Bar' => methods ['a_method', 'b_method'];


Syntactic sugar for mock()


Syntactic sugar for mock()


Syntactic sugar for mock()


Alexis Sukrieh, <sukria at>


Please report any bugs or feature requests to bug-test-tinymocker at, or through the web interface at I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.


You can find documentation for this module with the perldoc command.

    perldoc Test::TinyMocker

You can also look for information at:


This module was inspired by Gugod's blog, after the article published about mocking in Ruby and Perl:

This module was first part of the test tools provided by Dancer in its own t directory (previously named t::lib::EasyMocker). A couple of developers asked me if I could released this module as a real Test:: distribution on CPAN, so here it is.


Copyright 2010 Alexis Sukrieh.

This program is free software; you can redistribute it and/or modify it under the terms of either: the GNU General Public License as published by the Free Software Foundation; or the Artistic License.

See for more information.


Alexis Sukrieh <>


This software is copyright (c) 2013 by Alexis Sukrieh.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.

syntax highlighting: