| line | % | coverage | branch |
|---|
| 288 | 100 | T | F | @parts ? : |
| 293 | 100 | T | F | unless (length $last and $last =~ /\A[A-Za-z_]/) |
| 296 | 100 | T | F | defined $host ? : |
| 439 | 100 | T | F | if exists $raw->{'url'} |
| 440 | 50 | T | F | if exists $raw->{'redis'} |
| 459 | 100 | T | F | unless defined $args->{'host'} or -d $args->{'directory'} |
| 466 | 100 | T | F | if not length $args->{'table'} or $args->{'table'} =~ m[[/\\\x00]] |
| 476 | 100 | T | F | if $safe_table =~ /\A[0-9]/ |
| 478 | 50 | T | F | unless $safe_table =~ /$TABLE_NAME_RE/ |
| 989 | 50 | T | F | unless &Database::BI::Model::DataSource::open(my $fh, "<:raw", $path) |
| 993 | 100 | T | F | if $header =~ /\ASQLite format/ |
| 994 | 100 | T | F | if $header =~ /\A\s*<\?xml/i |
| 995 | 100 | T | F | if $header =~ /\A\s*</ |
| 996 | 50 | T | F | unless &Database::BI::Model::DataSource::open(my $lh, "<", $path) |
| 999 | 50 | T | F | unless defined $line |
| 1000 | 100 | T | F | if $line =~ /\t/ |
| 1001 | 100 | T | F | if $line =~ /\|/ |
| 1015 | 100 | T | F | if $v =~ /\A\d{4}-\d{2}-\d{2}\z/ |
| 1016 | 100 | T | F | if $v =~ m[\A\d{1,2}/\d{1,2}/\d{4}\z] |
| 1017 | 100 | T | F | if $v =~ /\A[+\-]\d+(?:\.\d+)?\z/ |
| 1018 | 100 | T | F | if $v =~ /\A\(\d+(?:\.\d+)?\)\z/ |
| 1035 | 100 | T | F | if ($v =~ /\A\d{4}-\d{2}-\d{2}\z/ or $v =~ m[\A\d{1,2}/\d{1,2}/\d{4}\z]) { } |
| 100 | T | F | elsif ($v =~ /\A[+\-]?\d+(?:\.\d+)?\z/ or $v =~ /\A\(\d+(?:\.\d+)?\)\z/) { } |
| 1043 | 100 | T | F | $type_count{$type} == 1 ? : |
| 1488 | 100 | T | F | if defined $self->{'_columns'} |
| 1492 | 100 | T | F | if defined $self->{'_url'} |
| 1499 | 0 | T | F | if (defined $self->{'_redis_url'} and $self->{'_db'}) |
| 1506 | 100 | T | F | $self->{'_db'} ? : |
| 1556 | 50 | T | F | if $self->{'_file_is_empty'} |
| 1557 | 50 | T | F | if $self->{'_file_data'} |
| 1558 | 50 | T | F | unless $self->{'_db'} |
| 1559 | 50 | T | F | unless $self->{'_db'}->can("dbi_source") |
| 1599 | 50 | T | F | if $self->{'_file_is_empty'} |
| 1600 | 50 | T | F | if $self->{'_file_data'} |
| 1601 | 50 | T | F | unless $self->{'_db'} |
| 1602 | 50 | T | F | unless $self->{'_db'}->can("aggregate") |
| 1704 | 100 | T | F | if $self->{'_db'} and $self->{'_db'}->can("updated") |
| 1706 | 100 | T | F | if defined $self->{'_file_path'} and -f $self->{'_file_path'} |
| 1832 | 100 | T | F | if $self->{'_file_is_empty'} |
| 1833 | 100 | T | F | if $self->{'_file_data'} |
| 1839 | 100 | T | F | if ($cache and not @args) |
| 1841 | 50 | T | F | if (defined $key) |
| 1843 | 100 | T | F | if defined $hit |
| 1849 | 100 | T | F | if ($cache and not @args and defined $data) |
| 1851 | 50 | T | F | if (defined $key) |
| 1854 | 50 | T | F | defined $self->{'_url'} ? : |
| 1866 | 100 | T | F | if $self->{'_file_is_empty'} |
| 1869 | 100 | T | F | if $self->{'_file_data'} |
| 1874 | 100 | T | F | if ($cache) |
| 1876 | 50 | T | F | if (defined $key) |
| 1878 | 100 | T | F | if defined $hit |
| 1883 | 100 | T | F | if ($@) |
| 1887 | 100 | T | F | unless defined $data |
| 1893 | 100 | T | F | if (ref $data eq "HASH") |
| 1898 | 100 | T | F | unless (@{$data;}) |
| 1905 | 100 | T | F | if ($cache) |
| 1907 | 50 | T | F | if (defined $key) |
| 1910 | 100 | T | F | defined $self->{'_url'} ? : |
| 1952 | 50 | T | F | if $self->{'_file_is_empty'} |
| 1953 | 50 | T | F | if $self->{'_file_data'} |