Branch Coverage

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


line true false branch
57 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); } ))
69 0 0 unless ($res->is_success)
116 0 0 if (defined $token->{'token'}) { }
0 0 elsif ($token->{'error'} =~ /No permission/) { }
0 0 elsif ($token->{'error'}) { }
236 0 0 unless ($dat and ref $dat eq 'ARRAY' and scalar @$dat)
299 0 0 unless ($res->is_success)
324 0 0 if ($rh_course->{'shortname'} eq $args{'short_cname'})
414 0 0 if $res->content eq 'null'