Branch Coverage

blib/lib/REST/Resource.pm
Criterion Covered Total %
branch 55 70 78.5


line true false branch
160 3 12 if ref $class
165 6 9 unless (exists $$args{'request_interface'})
170 1 14 unless (UNIVERSAL::can($request, 'http'))
174 1 13 unless (UNIVERSAL::can($request, 'param'))
178 1 12 unless (UNIVERSAL::can($request, 'header'))
209 0 12 if (-f $INC{'XML/Dumper.pm'})
216 9 3 if (-f $INC{'JSON.pm'})
223 9 3 if (-f $INC{'REST/RequestFast.pm'})
285 5 1 if (-f $INC{'REST/RequestFast.pm'}) { }
289 4 1 if $html
290 1 4 if $ttl
298 1 0 if ($status == 200) { }
301 0 1 if ($html) { }
315 0 1 if (time - $$this{'starttime'} > $$this{'ttl'})
353 0 0 unless $req
357 0 0 if ($status == 200 and defined $method) { }
411 9 93 unless $description
413 93 9 if (defined $implementation)
448 32 10 if exists $$this{'mimetype_mapping'}{$format}
451 5 37 unless $description
453 8 34 if exists $$this{'formats'}{$format}
454 37 5 if (defined $implementation)
498 29 1 if (defined $$this{'descriptions'}{$name})
535 2 1 $req->http('SERVER_PORT') == 443 ? :
539 2 1 defined $req->http('SCRIPT_NAME') ? :
856 2 10 if (defined $format) { }
10 0 elsif (defined $explicit) { }
868 6 4 if (defined $useragent and $useragent =~ /Gecko/i)
871 1 5 if $$mimetypes{'text/html'} and $$mimetypes{'application/xml'}
876 8 11 if exists $$this{'formats'}{$format}
878 1 0 if (defined $useragent and $useragent =~ /MSIE/)
885 0 0 if (defined %XML::Dumper::)
952 1 0 if defined $status
953 1 0 if defined $status_msg
954 1 0 if (&is_error($status)) { }