| lib/App/MtAws/Utils.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 40 | 56 | 71.4 |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 82 | 2198 | 1 | 2340 | defined $filename and length $filename |
| 105 | 0 | 0 | 98 | -e $abspath and &file_inodev($abspath, 'use_filename_encoding', 0) eq $orig_id |
| 129 | 0 | 0 | 2802 | defined $path and defined $base |
| 170 | 450 | 675 | 0 | defined $checkargs{$_} and delete $checkargs{$_} |
| 178 | 219 | 2 | 1 | $args{'not_empty'} and $args{'mode'} ne '<' |
| 192 | 23 | 193 | 3 | -e $filename and not -f $filename |
| 193 | 214 | 1 | 1 | $args{'not_empty'} and not -s $filename |
| 199 | 213 | 1 | 0 | $args{'not_empty'} and not -s $f |
| 253 | 1 | 540 | 88 | defined $_[0] and utf8::is_utf8($_[0]) |
| 260 | 849 | 824 | 696 | utf8::is_utf8($_[0]) and &bytes::length($_[0]) == length $_[0] |
| 344 | 0 | 19 | 0 | $req->content_type ne 'application/octet-stream' and $req->content |
| 19 | 0 | 0 | $req->content_type ne 'application/octet-stream' and $req->content and length $req->content | |
| 353 | 19 | 0 | 0 | $resp->content_type eq 'application/json' and $resp->content |
| 19 | 0 | 0 | $resp->content_type eq 'application/json' and $resp->content and length $resp->content |
| line | l | !l | condition |
|---|---|---|---|
| 383 | 6 | 1 | eval { do { join(',', gmtime 2148595200) eq '0,0,0,1,1,138,1,31,0' if timegm(0, 0, 0, 1, 1, 2038) == 2148595200 and timegm(0, 0, 0, 1, 1, 4000) == 64063267200 and join(',', gmtime 64063267200) eq '0,0,0,1,1,2100,2,31,0' } } || 0 |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 74 | 0 | 2 | 1461 | not defined $filename or $filename eq '' |
| 83 | 5 | 18 | 2317 | $filename =~ tr/\t\n\r// or index($filename, '//') != -1 |
| 23 | 14 | 2303 | $filename =~ tr/\t\n\r// or index($filename, '//') != -1 or substr($filename, 0, 1) eq '/' | |
| 135 | 2753 | 49 | 0 | $args{'allow_rel_base'} or $base =~ m[^/] |