| line |
true |
false |
branch |
|
49
|
0 |
0 |
if (my $pk = $$tab{'pk'}) { } |
|
70
|
0 |
0 |
unless @_ |
|
85
|
0 |
0 |
if $$schema{'cf_as_base'} |
|
95
|
0 |
0 |
if $$schema{'cf_as_base'} |
|
106
|
0 |
0 |
if @_ |
|
114
|
0 |
0 |
if ($$schema{'cf_DBH'}) |
|
127
|
0 |
0 |
if (ref $item) { } |
|
141
|
0 |
0 |
if ref $$list[0] |
|
142
|
0 |
0 |
if ($$list[0] =~ /^-(\w+)/) { } |
|
145
|
0 |
0 |
unless @$list >= 2 |
|
162
|
0 |
0 |
unless ($$schema{'cf_DBH'}) |
|
163
|
0 |
0 |
unless (defined($spec ||= $schema->connection_spec)) |
|
166
|
0 |
0 |
if (ref $spec eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $spec eq 'CODE') { } |
|
180
|
0 |
0 |
if (my $sub = $schema->can("connect_to_$dbtype")) { } |
|
199
|
0 |
0 |
unless defined $param{$$_[0]} |
|
202
|
0 |
0 |
if ($dbi_dsn =~ /^dbi:(\w+):/) |
|
206
|
0 |
0 |
if $$schema{'cf_auto_create'} |
|
215
|
0 |
0 |
@spec ? : |
|
217
|
0 |
0 |
if $schema->has_table($$table{'cf_name'}, $dbh) |
|
219
|
0 |
0 |
if $$schema{'cf_verbose'} |
|
267
|
0 |
0 |
if (@columns) { } |
|
|
0 |
0 |
elsif (not ref $opts) { } |
|
272
|
0 |
0 |
if (ref(my $kw = $$desc[0])) { } |
|
273
|
0 |
0 |
if (not $$fields{my $fname = "chk_$$kw"}) { } |
|
281
|
0 |
0 |
if (/^-(\w+)/) { } |
|
305
|
0 |
0 |
if ($$tab{'colNames'}{$colName}) |
|
316
|
0 |
0 |
if (ref $type) { } |
|
324
|
0 |
0 |
if ($$col{'cf_primary_key'}) |
|
346
|
0 |
0 |
if $$col{'cf_indexed'} |
|
348
|
0 |
0 |
$_ ? : |
|
364
|
0 |
0 |
$_ ? : |
|
366
|
0 |
0 |
wantarray ? : |
|
376
|
0 |
0 |
$$col{'cf_primary_key'} ? : |
|
|
0 |
0 |
$$col{'cf_unique'} ? : |
|
|
0 |
0 |
$$col{'cf_auto_increment'} ? : |
|
385
|
0 |
0 |
if ($$col{'cf_type'} =~ /^int/i and $$col{'cf_primary_key'}) { } |
|
404
|
0 |
0 |
ref $method ? : |
|
408
|
0 |
0 |
$wantarray ? : |
|
412
|
0 |
0 |
wantarray ? : |
|
419
|
0 |
0 |
unless my $tab = $$schema{'tables'}{$tabName} |
|
422
|
0 |
0 |
@fields ? : |
|
423
|
0 |
0 |
if (not my $colno = $$tab{'colNames'}{$_}) { } |
|
429
|
0 |
0 |
unless $$col{'cf_hidden'} |
|
430
|
0 |
0 |
if (my $encTab = $$col{'cf_encoded_by'}) |
|
440
|
0 |
0 |
wantarray ? : |
|
448
|
0 |
0 |
if (not $fields) { } |
|
|
0 |
0 |
elsif (ref $fields) { } |
|
456
|
0 |
0 |
if $$schema{'cf_verbose'} |
|
478
|
0 |
0 |
ref $encDesc ? : |
|
484
|
0 |
0 |
if $$schema{'cf_verbose'} |
|
489
|
0 |
0 |
if $$schema{'cf_verbose'} |
|
498
|
0 |
0 |
unless (defined $rowid) |
|
521
|
0 |
0 |
if %opts |
|
524
|
0 |
0 |
if (my $sub = $self->can("select_$table")) { } |
|
|
0 |
0 |
elsif ($sub = $self->can("sql_select_$table")) { } |
|
533
|
0 |
0 |
$bind ? : |
|
536
|
0 |
0 |
unless $$self{'cf_no_header'} |
|
547
|
0 |
0 |
if delete $param{'tsv'} |
|
550
|
0 |
0 |
if @fetch > 1 |
|
554
|
0 |
0 |
if ($is_text) { } |
|
557
|
0 |
0 |
if $$schema{'cf_no_header'} |
|
559
|
0 |
0 |
unless my $res = $sth->fetchall_arrayref |
|
562
|
0 |
0 |
defined $header ? : |
|
565
|
0 |
0 |
$bind ? : |
|
575
|
0 |
0 |
if @fetch > 1 |
|
576
|
0 |
0 |
unless $fetch[0] |
|
580
|
0 |
0 |
$bind ? : |
|
581
|
0 |
0 |
wantarray ? : |
|
584
|
0 |
0 |
$bind ? : |
|
|
0 |
0 |
wantarray ? : |
|
591
|
0 |
0 |
$bind ? : |
|
598
|
0 |
0 |
ref $columns ? : |
|
601
|
0 |
0 |
$bind ? : |
|
|
0 |
0 |
wantarray ? : |
|
607
|
0 |
0 |
unless defined $depth |
|
612
|
0 |
0 |
if ($depth or $enc) { } |
|
614
|
0 |
0 |
unless $$col{'cf_primary_key'} |
|
620
|
0 |
0 |
if ($enc and $depth < coalesce($until, 1)) |
|
638
|
0 |
0 |
if (my $sub = $schema->can("sql_select_$tabName")) |
|
642
|
0 |
0 |
unless my $tab = $$schema{'tables'}{$tabName} |
|
649
|
0 |
0 |
if (my $where = delete $$params{'where'}) |
|
651
|
0 |
0 |
if (ref $where) { } |
|
662
|
0 |
0 |
if ($$params{'offset'} and not $$params{'limit'}) |
|
667
|
0 |
0 |
if (my $val = delete $$params{$kw}) |
|
673
|
0 |
0 |
if %$params |
|
676
|
0 |
0 |
@bind ? : |
|
684
|
0 |
0 |
if (@_) { } |
|
|
0 |
0 |
elsif ($raw) { } |
|
694
|
0 |
0 |
$raw ? : |
|
699
|
0 |
0 |
defined $bind ? : |
|
|
0 |
0 |
wantarray ? : |
|
721
|
0 |
0 |
if (not defined $_) { } |
|
|
0 |
0 |
elsif ((my $val = $_) =~ s/[\t\n]/ /g) { } |
|
736
|
0 |
0 |
if $$schema{'cf_verbose'} |
|
754
|
0 |
0 |
defined $_ ? : |
|
762
|
0 |
0 |
unless @_ |
|
767
|
0 |
0 |
if (my $sub = $obj->can("cmd_$cmd")) { } |
|
|
0 |
0 |
elsif ($sub = $obj->can($cmd)) { } |
|
771
|
0 |
0 |
unless @res |
|
772
|
0 |
0 |
unless (@res == 1 and defined $res[0] and $res[0] eq '1') |
|
773
|
0 |
0 |
if defined $_ |
|
|
0 |
0 |
if (grep {ref $_ if defined $_;} @res) { } |
|
804
|
0 |
0 |
$as_utc ? : |