Branch Coverage

blib/lib/WebService/Moodle/Simple.pm
Criterion Covered Total %
branch 0 20 0.0


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'})