| blib/lib/App/DuckPAN/Fathead.pm | |||
|---|---|---|---|
| Criterion | Covered | Total | % |
| branch | 0 | 26 | 0.0 |
| line | true | false | branch |
|---|---|---|---|
| 26 | 0 | 0 | unless ($dir->is_dir) |
| 31 | 0 | 0 | unless ($file->exists) |
| 48 | 0 | 0 | unless $self->has_selected |
| 50 | 0 | 0 | unless ($file->exists) |
| 91 | 0 | 0 | unless my $dbh = 'DBI'->connect('dbi:CSV:', undef, undef, {'f_dir', $self->output_txt->parent, 'f_ext', '.txt/r', 'csv_sep_char', "\t", 'csv_quote_char', undef, 'csv_escape_char', undef, 'csv_allow_whitespace', 1, 'csv_allow_quotes', 1, 'RaiseError', 1, 'PrintError', 0, 'csv_tables', {'output', {'file', 'output.txt', 'col_names', ['title', 'type', 'redirect', 'col4', 'categories', 'col6', 'related_topics', 'col8', 'external_links', 'disambiguation', 'images', 'abstract', 'abstract_url']}}}) |
| 161 | 0 | 0 | if $@ |
| 167 | 0 | 0 | unless my $result = $self->_search_output($query) |
| 179 | 0 | 0 | unless keys %$metadata |
| 193 | 0 | 0 | if ($data->{'type'} eq 'A') |
| 207 | 0 | 0 | if ($data->{'type'} eq 'D') |
| 218 | 0 | 0 | if ($data->{'type'} eq 'C') |
| 236 | 0 | 0 | if ($disambiguation =~ /^\*\[\[(.+)\]\],(.+)$/) |
| 267 | 0 | 0 | if ($image =~ /^\[\[Image:(.+)\]\]$/) |