Condition Coverage

File:blib/lib/Weather/Meteo.pm
Coverage:66.2%

line%coveragecondition
200100
Adec
00
11
Params::Get::get_params(undef, \@_) || {}
20833
ABdec
0X0
100
111
&Scalar::Util::blessed($params->{'ua'}) && $params->{'ua'}->can('get')
23667
ABdec
000
011
1X1
$params->{'cache'} || 'CHI'->new('driver', 'Memory', 'global', 1, 'expires_in', '1 hour')
247100
Adec
00
11
$params->{'host'} || 'archive-api.open-meteo.com'
100
Adec
00
11
$params->{'min_interval'} || 0
364100
ABCdec
0XX0
10X0
1100
1111
scalar @_ == 2 and &Scalar::Util::blessed($_[0]) and $_[0]->can("latitude")
373100
ABdec
0X0
100
111
$_[0]->can("tz") and $ENV{'TIMEZONEDB_KEY'}
382100
Adec
00
11
$params->{'tz'} || 'Europe/London'
384100
ABCDdec
0XXX0
10XX0
110X0
11100
11111
not defined $latitude and defined $location and &Scalar::Util::blessed($location) and $location->can("latitude")
390100
ABCdec
0XX0
10X0
1100
1111
defined $latitude and defined $longitude and defined $date
403100
ABdec
0X0
100
111
defined $lat_clean and defined $lon_clean
41167
ABdec
0X0
100
111
&Scalar::Util::blessed($date) and $date->can("strftime")
448100
ABdec
0X0
100
111
defined $rc and ref $rc eq "HASH"
452100
Adec
00
11
$rc->{'reason'} // "unknown"
56650
ABCdec
0XX0
10X0
1100
1111
scalar @_ >= 1 and &Scalar::Util::blessed($_[0]) and $_[0]->can("latitude")
57533
ABdec
0X0
100
111
$location->can("tz") and $ENV{'TIMEZONEDB_KEY'}
583100
Adec
00
11
$params->{'days'} // 7
58450
Adec
00
11
$params->{'tz'} || 'Europe/London'
58640
ABCDdec
0XXX0
10XX0
110X0
11100
11111
not defined $latitude and defined $location and &Scalar::Util::blessed($location) and $location->can("latitude")
592100
ABdec
0X0
100
111
defined $latitude and defined $longitude
60367
ABdec
0X0
100
111
defined $lat_clean and defined $lon_clean
61150
ABCdec
0000
0011
01X1
1XX1
not $days =~ /^\d+$/ or $days < 1 or $days > 16
63633
ABdec
0X0
100
111
defined $rc and ref $rc eq "HASH"
75650
ABCdec
0XX0
10X0
1100
1111
scalar @_ >= 1 and &Scalar::Util::blessed($_[0]) and $_[0]->can("latitude")
76533
ABdec
0X0
100
111
$location->can("tz") and $ENV{'TIMEZONEDB_KEY'}
77350
Adec
00
11
$params->{'tz'} || 'Europe/London'
77540
ABCDdec
0XXX0
10XX0
110X0
11100
11111
not defined $latitude and defined $location and &Scalar::Util::blessed($location) and $location->can("latitude")
78167
ABdec
0X0
100
111
defined $latitude and defined $longitude
79233
ABdec
0X0
100
111
defined $lat_clean and defined $lon_clean
80425
ABCdec
0XX0
10X0
1100
1111
defined $date and &Scalar::Util::blessed($date) and $date->can("strftime")
80867
ABdec
0X0
100
111
defined $date and not $date =~ /^\d{4}-\d{2}-\d{2}$/
81433
ABdec
000
011
1X1
!defined($date) || $date ge $today
81533
ABdec
000
011
1X1
$date //= $today
83625
ABCdec
0XX0
10X0
1100
1111
defined $rc and ref $rc eq "HASH" and not $rc->{'error'}
84333
ABdec
0X0
100
111
defined $sr and defined $ss
978100
ABCdec
0XX0
10X0
1100
1111
defined $res and ref $res and $res->can("is_error")