| blib/lib/WebService/TimeAndDateCom/NewYearsCountdown.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 9 | 14 | 64.2 |
| line | true | false | branch |
|---|---|---|---|
| 28 | 0 | 3 | unless my $data = $self->_get_data |
| 31 | 2 | 1 | if ($tz) |
| 33 | 0 | 2 | if $tz eq 'UTC' |
| 35 | 1 | 1 | unless my($tz_data) = grep(($$_{'tz'} eq $tz), @$data) |
| 49 | 0 | 3 | unless $res->is_success |
| 52 | 0 | 3 | unless my $parsed_data = $self->_parse($res->content) |
| 72 | 0 | 3 | if $@ |