Mocking the get method
use strict;
use warnings;
use FindBin qw($Bin);
use lib $Bin;
use Test::More;
plan tests => 1;
use MyWebAPI;
use Test::Mock::Simple;
my $mock = Test::Mock::Simple->new(module => 'MyWebAPI');
$mock->add(get => sub {
return 'Beyonce Beyonce Miley Cyrus';
});
my $w = MyWebAPI->new;
is_deeply $w->count_strings('Beyonce', 'Miley Cyrus'),
{
'Beyonce' => 2,
'Miley Cyrus' => 1,
};
1..1
ok 1