view release on metacpan or  search on metacpan

lib/Test/TinyMocker.pm  view on Meta::CPAN

use vars qw(@EXPORT $VERSION);
use base 'Exporter';

$VERSION = '0.03';
my $mocks = {};

@EXPORT = qw(mock unmock should method methods);

sub method($)  {@_}
sub methods($) {@_}
sub should(&)  {@_}

sub mock {
    croak 'useless use of mock with one or less parameter'
      if scalar @_ < 2;

    # if the last element is a HashRef, it's options to process
    my $options   = {};
    my $last_elem = $_[-1];
    if ( ref($last_elem) eq ref( {} ) ) {
        $options = pop @_;