view release on metacpan or  search on metacpan

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

use base 'Exporter';

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

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

sub mocked($$) { $mocks->{join("::", @_)} }
sub method($)  {@_}
sub methods($) {@_}
sub should(&)  {@_}

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

    my $sub     = pop;
    my @symbols = _flat_symbols(@_);

    foreach my $symbol (@symbols) {
        croak "unknown symbol: $symbol"