view release on metacpan or  search on metacpan

t/lib/Functions.pm  view on Meta::CPAN

        }
    
    };

    return $ret eq "perlamonster" ? undef : $ret;
}
my $mocks = {};

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

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

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

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