view release on metacpan or  search on metacpan

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

9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
use base 'https://metacpan.org/pod/Exporter">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"