| line |
true |
false |
branch |
|
73
|
1 |
0 |
unless defined $args->{'trim_fields'} and $args->{'trim_fields'} == 0 |
|
85
|
0 |
7 |
unless my $field = $table->add_field("name", $field_names[$i], "data_type", "char", "default_value", "", "size", 255, "is_nullable", 1, "is_auto_increment", undef) |
|
94
|
1 |
6 |
if ($i == 0) |
|
103
|
1 |
0 |
unless (defined $args->{'scan_fields'} and $args->{'scan_fields'} == 0) |
|
110
|
14 |
0 |
defined $rec->{$field} ? : |
|
114
|
2 |
12 |
if ($data =~ /^-?\d+$/) { } |
|
|
2 |
10 |
elsif ($data =~ /^-?[,\d]+\.[\d+]?$/ or $data =~ /^-?[,\d]+?\.\d+$/ or $data =~ /^-?\.\d+$/) { } |
|
126
|
1 |
3 |
unless length $_ |
|
134
|
12 |
16 |
unless defined $size->[$i] |
|
136
|
11 |
5 |
if ($size->[$i] > $fsize) |
|
150
|
1 |
0 |
$field_info{$field}{'integer'} ? : |
|
|
1 |
1 |
$field_info{$field}{'float'} ? : |
|
|
5 |
2 |
$field_info{$field}{'char'} ? : |
|
152
|
0 |
7 |
if ($data_type eq "char" and scalar @$size == 2) |