| line | % | coverage | branch |
|---|
| 83 | 100 | T | F | @args ? : |
| 113 | 100 | T | F | unless $url =~ m(\Ahttps?://([^/:?\[\]#]+))iu |
| 117 | 100 | T | F | if $host eq "localhost" or $host =~ /\A127\./u or $host eq "0.0.0.0" or $host eq "::1" |
| 125 | 100 | T | F | unless $host =~ /\A\d{1,3}(?:\.\d{1,3}){3}\z/u |
| 127 | 100 | T | F | unless my $packed = inet_aton($host) |
| 130 | 100 | T | F | if ($n & 4278190080) == 167772160 |
| 131 | 100 | T | F | if ($n & 4293918720) == 2886729728 |
| 132 | 100 | T | F | if ($n & 4294901760) == 3232235520 |
| 133 | 100 | T | F | if ($n & 4294901760) == 2851995648 |
| 134 | 100 | T | F | if ($n & 4290772992) == 1681915904 |
| 174 | 100 | T | F | if ($lang ne $default) |
| 177 | 100 | T | F | unless -d $dir |
| 197 | 50 | T | F | unless -d $dir |
| 200 | 50 | T | F | unless $base =~ /$EXT_RE/u |
| 217 | 100 | T | F | if ($spec =~ /\Atable:([A-Za-z0-9_]+)\z/u) { } |
| 100 | T | F | elsif ($spec =~ /\Apath:(.+)\z/u) { } |
| 100 | T | F | elsif ($spec =~ /$URL_SPEC_RE/u) { } |
| 220 | 100 | T | F | unless grep {-f $data_dir->child("$table.$_");} @SUPPORTED_EXT |
| 222 | 50 | T | F | if $src and not $@ |
| 226 | 100 | T | F | if (defined $file and -f $file and $file->basename =~ /$EXT_RE/u) |
| 230 | 50 | T | F | if $src and not $@ |
| 235 | 100 | T | F | unless _is_safe_url($url) |
| 237 | 50 | T | F | if $src and not $@ |
| 249 | 100 | T | F | if $spec =~ /\Atable:([A-Za-z0-9_]+)\z/u |
| 250 | 100 | T | F | if $spec =~ /\Apath:(.+)\z/u |
| 251 | 100 | T | F | if $spec =~ /$URL_SPEC_RE/u |
| 270 | 100 | T | F | if $cols |
| 271 | 100 | T | F | unless $records->[0] |
| 274 | 100 | T | F | $c && $all{$c} ? : |
| 316 | 100 | T | F | unless length($col // "") and defined $op and length $op |
| 321 | 100 | T | F | $op eq 'notempty' ? : |
| 100 | T | F | $op eq 'empty' ? : |
| 100 | T | F | $op eq 'ge' ? : |
| 100 | T | F | $op eq 'gt' ? : |
| 100 | T | F | $op eq 'le' ? : |
| 100 | T | F | $op eq 'lt' ? : |
| 100 | T | F | $op eq 'starts' ? : |
| 100 | T | F | $op eq 'contains' ? : |
| 100 | T | F | $op eq 'ne' ? : |
| 100 | T | F | $op eq 'eq' ? : |
| 354 | 100 | T | F | unless length($col // "") and defined $op and length $op |
| 391 | 100 | T | F | $left_set{$col} ? : |
| 437 | 100 | T | F | unless $seen{$col}++ |
| 448 | 100 | T | F | $has_col{$_} ? : |
| 466 | 100 | T | F | $f =~ /[,"\r\n]/u ? : |
| 497 | 100 | T | F | if (opendir my $dh, $dir->to_string) |
| 499 | 100 | T | F | if $entry eq "." or $entry eq ".." or $entry =~ /\A\./u |
| 501 | 100 | T | F | if (-d $f) { } |
| 100 | T | F | elsif ($want_files and $entry =~ /$EXT_RE/u) { } |
| 529 | 100 | T | F | unless @$columns |
| 540 | 100 | T | F | if ($@ or not $dbh) |
| 550 | 100 | T | F | if (@$records) |
| 561 | 100 | T | F | if (my $err = $@) |
| 584 | 100 | T | F | unless $left_src |
| 587 | 50 | T | F | if $@ |
| 595 | 50 | T | F | unless defined $right_spec and defined $left_key and defined $right_key |
| 597 | 50 | T | F | unless $col_set{$left_key} |
| 599 | 50 | T | F | unless $right_src |
| 601 | 50 | T | F | if $@ |
| 604 | 50 | T | F | unless $right_set{$right_key} |
| 615 | 100 | T | F | if (@cspecs) |
| 619 | 50 | T | F | unless $csrc |
| 621 | 50 | T | F | if $@ |
| 625 | 50 | T | F | if (@sources > 1) |
| 810 | 100 | T | F | unless (defined $table and $table =~ /$TABLE_NAME_RE/u) |
| 816 | 100 | T | F | if ($@) |
| 895 | 100 | T | F | unless defined $dir and -d $dir |
| 914 | 50 | T | F | unless length $name |
| 917 | 100 | T | F | if $parent->to_string eq $f->to_string |
| 923 | 50 | T | F | $parent->to_string ne $dir->to_string ? : |
| 1016 | 100 | T | F | unless defined $file_path |
| 1019 | 100 | T | F | unless defined $file and -f $file and $file->basename =~ /$EXT_RE/u |
| 1031 | 100 | T | F | if ($@) |
| 1111 | 100 | T | F | unless $idx =~ /\A[0-9]+\z/u |
| 1124 | 100 | T | F | unless length $url |
| 1125 | 100 | T | F | unless $url =~ m[\Ahttps?://]iu |
| 1127 | 100 | T | F | unless _is_safe_url($url) |
| 1131 | 100 | T | F | if $@ or not $source |
| 1134 | 100 | T | F | if $@ |
| 1207 | 100 | T | F | if (defined $table_name and $table_name =~ /$TABLE_NAME_RE/u) { } |
| 100 | T | F | elsif (defined $path) { } |
| 1210 | 100 | T | F | unless grep {-f $data_dir->child(lc($table_name) . ".$_");} @SUPPORTED_EXT |
| 1215 | 100 | T | F | if (defined $file and -f $file and $file->basename =~ /$EXT_RE/u) |
| 1222 | 100 | T | F | unless $source |
| 1225 | 100 | T | F | $source->columns ? : |
| 1287 | 100 | T | F | unless $left_src |
| 1290 | 50 | T | F | if ($@) |
| 1309 | 50 | T | F | unless defined $right_spec and defined $left_key and defined $right_key |
| 1313 | 50 | T | F | unless $col_set{$left_key} |
| 1316 | 100 | T | F | unless $right_src |
| 1319 | 50 | T | F | if $@ |
| 1322 | 50 | T | F | unless $right_set{$right_key} |
| 1335 | 100 | T | F | if @summaries |
| 1416 | 50 | T | F | unless $left_src |
| 1419 | 50 | T | F | if ($@) |
| 1439 | 50 | T | F | unless $csrc |
| 1441 | 50 | T | F | if $@ |
| 1447 | 50 | T | F | @sources > 1 ? : |
| 1455 | 50 | T | F | if @summaries |
| 1538 | 100 | T | F | unless $records |
| 1541 | 100 | T | F | unless $format eq "sqlite" |
| 1544 | 100 | T | F | $format eq 'sqlite' ? : |
| 1623 | 100 | T | F | unless (defined $dest_dir and -d $dest_dir) |
| 1633 | 100 | T | F | if ($filename and $filename =~ /\.csv\z/iu) { } |
| 100 | T | F | elsif ($filename and $filename =~ /\.sql\z/iu) { } |
| 1643 | 100 | T | F | unless $records |
| 1648 | 100 | T | F | if ($format eq 'csv') { } |
| 1655 | 50 | T | F | if $@ |
| 1706 | 100 | T | F | unless defined $dir and -d $dir |
| 1716 | 100 | T | F | $parent->to_string ne $dir->to_string ? : |
| 1772 | 100 | T | F | unless (defined $path and length $path) |
| 1782 | 100 | T | F | unless defined $file and -f $file and $file->basename =~ /$EXT_RE/u |
| 1839 | 100 | T | F | unless ($upload and $upload->filename) |
| 1851 | 100 | T | F | if ($self->req->is_limit_exceeded or $upload->size > $MAX_UPLOAD_BYTES) |
| 1861 | 100 | T | F | unless ($filename and $filename =~ /$EXT_RE/u) |
| 1873 | 100 | T | F | unless -d $uploads_base |