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:(.+)\]\]$/) |