| line |
true |
false |
branch |
|
114
|
0 |
24 |
if $line =~ /^--/ |
|
116
|
24 |
0 |
if ($line =~ /^(\w+)\s+([A-Za-z]+)(?:\((\d+(?:,\d+)?)\))?(?:\s+(NOT NULL))?/i) |
|
123
|
15 |
9 |
if ($type =~ /int/) { } |
|
|
1 |
8 |
elsif ($type =~ /numeric|real|double/) { } |
|
|
1 |
7 |
elsif ($type eq 'date') { } |
|
|
2 |
5 |
elsif ($type =~ /timestamp/) { } |
|
|
5 |
0 |
elsif ($type eq 'varchar') { } |
|
142
|
5 |
0 |
if (defined $length) |
|
145
|
5 |
0 |
if ($length =~ /^(\d+)/) |
|
155
|
16 |
8 |
unless ($notnull) |
|
160
|
8 |
16 |
if $notnull |
|
191
|
0 |
0 |
unless my $csv = "Text::CSV_XS"->new({"binary", 1, "sep_char", $sep, "auto_diag", 1, "blank_is_undef", 1}) |
|
211
|
0 |
0 |
if (exists $record->{$col}) |
|
213
|
0 |
0 |
if (defined $prop->{'_coerce'} and $prop->{'_coerce'}) |
|
222
|
0 |
0 |
if (@$errs) |
|
239
|
9 |
39 |
unless defined $val and $val ne "" and $val ne "\\N" |
|
241
|
36 |
3 |
&looks_like_number($tr_val) ? : |