| blib/lib/CGI/Uploader.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| condition | 27 | 64 | 42.1 |
| line | l | !l | condition |
|---|---|---|---|
| 628 | 0 | 0 | $q->cgi_error && (return undef) |
| 643 | 0 | 0 | $q->cgi_error && (return undef) |
| line | !l | l&&!r | l&&r | condition |
|---|---|---|---|---|
| 627 | 0 | 0 | 0 | not $fh and $q->cgi_error |
| 642 | 2 | 0 | 0 | not $fh and $q->cgi_error |
| 647 | 0 | 0 | 2 | $fh and $filename |
| 939 | 8 | 0 | 0 | defined $fm_mt and length $fm_mt |
| 958 | 4 | 0 | 3 | defined $uploaded_ext and grep {/^$uploaded_ext$/;} @mt_exts |
| 1038 | 1 | 7 | 0 | not $is_update and $$self{'db_driver'} eq 'Pg' |
| 1067 | 1 | 7 | 0 | not $is_update and $$self{'db_driver'} eq 'mysql' |
| 1070 | 1 | 0 | 7 | not $is_update and $$self{'db_driver'} eq 'SQLite' |
| line | l | !l | condition |
|---|---|---|---|
| 478 | 2 | 0 | $$self{'dbh'}->selectcol_arrayref("SELECT $$map{'upload_id'}\n FROM $$self{'up_table'}\n WHERE $$map{'gen_from_id'} = ?", {}, $upload_id) || [] |
| 716 | 2 | 2 | $shared_meta ||= {} |
| 783 | 4 | 0 | $$self{'spec'}{$file_field}{'gen_files'} || (return undef) |
| 817 | 4 | 0 | $meta_from_gen_file ||= {} |
| 872 | 1 | 0 | $dbh->selectcol_arrayref("SELECT $$map{'upload_id'}\n FROM " . $$self{'up_table'} . "\n WHERE $$map{'gen_from_id'} = ?", {}, $id) || [] |
| 918 | 4 | 4 | shift() || '' |
| line | l | !l&&r | !l&&!r | condition |
|---|---|---|---|---|
| 248 | 0 | 4 | 0 | ref $proto || $proto |
| 285 | 0 | 0 | 4 | $in{'db_driver'} eq 'mysql' or $in{'db_driver'} eq 'Pg' |
| 0 | 4 | 0 | $in{'db_driver'} eq 'mysql' or $in{'db_driver'} eq 'Pg' or $in{'db_driver'} eq 'SQLite' | |
| 471 | 2 | 0 | 0 | $q->param($file_field . '_id') || croak("$file_field was selected to delete,\n but ID was missing in '${file_field}_id' field") |
| 616 | 0 | 2 | 0 | shift() || $$self{'query'} |
| 941 | 4 | 4 | 0 | $uploaded_mt || $fm_mt |
| 1263 | 6 | 0 | 0 | $file || croak("couldn't delete upload file: ${file}: $!") |
| 1332 | 0 | 0 | 0 | shift() || $$self{'query'} |