The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

sub _build_description { "Testing current weather result" }
has request_obj => (
lazy => 1,
is => 'ro',
default => sub {
Weather::OpenWeatherMap::Request->new_for(
Find =>
api_key => 'abcd',
tag => 'foo',
location => 'London',
max => 2,
)
},
);
has result_obj => (
lazy => 1,
is => 'ro',
default => sub {
my ($self) = @_;
Weather::OpenWeatherMap::Result->new_for(
Find =>
request => $self->request_obj,
json => $self->mock_json,
)
},
);
has mock_json => (
lazy => 1,
is => 'ro',
default => sub { shift->get_mock_json('find') },
);
use lib 't/inc';
run_me;
done_testing