line |
true |
false |
branch |
67
|
0 |
0 |
if (&timeout_call($timeout, sub {
my $req = 'HTTP::Request'->new('GET', $dns_uri);
$req->content_type('application/json');
my $lwp = 'LWP::UserAgent'->new;
$lwp->timeout($timeout);
$res = $lwp->request($req);
}
)) |
80
|
0 |
0 |
unless ($res->is_success) |
152
|
0 |
0 |
unless (ref $response eq 'ARRAY') |
186
|
0 |
0 |
unless ($dat and ref $dat eq 'ARRAY' and scalar @$dat) |
204
|
0 |
0 |
unless $user |
223
|
0 |
0 |
unless ($res->is_success) |
227
|
0 |
0 |
if $res->content eq 'null' |
249
|
0 |
0 |
if ($rh_course->{'shortname'} eq $args{'short_cname'}) |
320
|
0 |
0 |
if ($@) |
327
|
0 |
0 |
if ($data->{'token'}) |