| line |
true |
false |
branch |
|
421
|
20 |
20 |
if ($self->_Accessible($Attrib, 'read')) { } |
|
|
1 |
19 |
elsif ($self->_Accessible($Attrib, 'record-read')) { } |
|
|
1 |
18 |
elsif ($self->_Accessible($Attrib, 'foreign-collection')) { } |
|
|
9 |
9 |
elsif ($DBIx::SearchBuilder::Record::AUTOLOAD =~ /.*::[sS]et_?(\w+)/o) { } |
|
|
2 |
7 |
elsif ($DBIx::SearchBuilder::Record::AUTOLOAD =~ /.*::(\w+?)_?[oO]bj$/o) { } |
|
|
6 |
1 |
elsif ($DBIx::SearchBuilder::Record::AUTOLOAD =~ /.*::[vV]alidate_?(\w+)/o) { } |
|
436
|
6 |
3 |
if ($self->_Accessible($Attrib, 'write')) { } |
|
|
1 |
2 |
elsif ($self->_Accessible($Attrib, 'record-write')) { } |
|
|
1 |
1 |
elsif ($self->_Accessible($Attrib, 'read')) { } |
|
446
|
1 |
1 |
if UNIVERSAL::isa($val, "DBIx::SearchBuilder::Record") |
|
461
|
1 |
1 |
if ($self->_Accessible($Attrib, 'object')) { } |
|
515
|
1814 |
330 |
unless defined $attribute |
|
536
|
0 |
1494 |
unless ref $pkeys eq "ARRAY" and $pkeys->[0] |
|
537
|
0 |
1494 |
unless scalar @$pkeys == 1 |
|
565
|
53 |
0 |
if $self->can("Schema") |
|
589
|
53 |
51 |
if ($schema->{$field}{'TYPE'}) { } |
|
|
51 |
0 |
elsif (my $refclass = $schema->{$field}{'REFERENCES'}) { } |
|
592
|
40 |
11 |
if (UNIVERSAL::isa($refclass, 'DBIx::SearchBuilder::Record')) { } |
|
|
11 |
0 |
elsif (UNIVERSAL::isa($refclass, 'DBIx::SearchBuilder')) { } |
|
593
|
0 |
40 |
if ($field =~ /(.*)_id$/) { } |
|
616
|
0 |
3 |
unless defined $value |
|
621
|
0 |
3 |
unless $description |
|
623
|
0 |
3 |
unless $description |
|
625
|
0 |
3 |
unless $description->{'REFERENCES'} |
|
629
|
0 |
3 |
unless UNIVERSAL::isa($classname, "DBIx::SearchBuilder::Record") |
|
641
|
0 |
2 |
unless defined $method_name |
|
645
|
0 |
2 |
unless $description |
|
649
|
0 |
2 |
unless UNIVERSAL::isa($classname, "DBIx::SearchBuilder") |
|
669
|
0 |
4 |
unless $ca->{$_}{'read'} |
|
684
|
1 |
3 |
unless $ca->{$_}{'write'} |
|
705
|
1752 |
3 |
if $self->{'fetched'}{$field} |
|
709
|
0 |
3 |
if grep((!defined($_)), values %pk) |
|
713
|
1 |
2 |
unless my $sth = $self->_Handle->SimpleQuery($query, sorted_values(%pk)) |
|
764
|
1 |
25 |
unless ($args{'Column'}) |
|
776
|
0 |
8 |
if (not defined $args{'Value'} and $self->{'no_undefs_in_set'}) |
|
786
|
17 |
8 |
if (defined $args{'Value'}) { } |
|
787
|
3 |
1 |
if ($args{'Value'} eq "" and $self->_Accessible($args{'Column'}, 'is_numeric') || ($self->_Accessible($args{'Column'}, 'type') || '') =~ /INT/i) |
|
795
|
4 |
4 |
if ($self->_Accessible($args{"Column"}, "no_nulls")) |
|
798
|
2 |
2 |
if (defined $default) { } |
|
818
|
3 |
17 |
if (not defined $args{'Value'} || defined $current_value or defined $args{'Value'} and defined $current_value and $args{'Value'} eq $current_value) |
|
835
|
1 |
19 |
unless ($self->$method($args{"Value"})) |
|
852
|
0 |
19 |
unless ($self->_Handle->KnowsBLOBs) |
|
856
|
0 |
0 |
if ($ca->{$key}{'type'} =~ /^(text|longtext|clob|blob|lob)$/i) |
|
865
|
0 |
19 |
unless ($val) |
|
869
|
0 |
0 |
defined $args{'Value'} ? : |
|
881
|
0 |
19 |
if ($args{'IsSQLFunction'}) { } |
|
980
|
16 |
261 |
unless defined $value |
|
983
|
1 |
260 |
unless $metadata |
|
986
|
3 |
257 |
if ($metadata->{'length'} and not $metadata->{'is_numeric'}) { } |
|
|
137 |
131 |
elsif ($metadata->{'type'} and $metadata->{'type'} =~ /char\((\d+)\)/) { } |
|
992
|
120 |
140 |
unless $truncate_to |
|
995
|
135 |
5 |
if $truncate_to >= do {
use bytes;
length $value
} |
|
997
|
0 |
5 |
if (&Encode::is_utf8($value)) { } |
|
1044
|
0 |
1 |
unless ($vglob and *$vglob{"SCALAR"}) |
|
1046
|
0 |
0 |
if $@ |
|
1047
|
0 |
0 |
unless ($vglob and *$vglob{"SCALAR"}) |
|
1114
|
58 |
2 |
if (defined $hash{$key} and $hash{$key} ne '') { } |
|
1118
|
1 |
57 |
if (ref $hash{$key} eq 'HASH') { } |
|
1135
|
1 |
1 |
if ($meta->{'is_numeric'} or $meta->{'type'} =~ /INT|NUMERIC|DECIMAL|REAL|DOUBLE|FLOAT/i) { } |
|
1160
|
53 |
1 |
defined $id ? : |
|
1176
|
1 |
2 |
ref $_[0] eq 'HASH' ? : |
|
1180
|
1 |
2 |
unless defined $data->{$_} |
|
1230
|
1 |
61 |
unless $sth |
|
1234
|
0 |
61 |
if (not $self->{'values'} and $sth->err) |
|
1238
|
3 |
58 |
unless ($self->{'values'}) |
|
1245
|
1 |
57 |
if (grep {not defined $_;} $self->PrimaryKeys) |
|
1276
|
3 |
250 |
if ($self->_Accessible($key, "record-write")) |
|
1278
|
1 |
2 |
if UNIVERSAL::isa($attribs{$key}, "DBIx::SearchBuilder::Record") |
|
1282
|
240 |
13 |
if (defined $attribs{$key}) { } |
|
1283
|
1 |
0 |
if ($attribs{$key} eq "" and $self->_Accessible($key, 'is_numeric') || ($self->_Accessible($key, 'type') || '') =~ /INT/i) |
|
1291
|
1 |
12 |
if $self->_Accessible($key, "no_nulls") |
|
1299
|
0 |
159 |
unless ($self->_Handle->KnowsBLOBs) |
|
1305
|
0 |
0 |
unless $type and $type =~ /^(text|longtext|clob|blob|lob)$/i |
|
1347
|
0 |
2 |
if (UNIVERSAL::isa($return, 'Class::ReturnValue')) { } |
|
1368
|
1363 |
221 |
if (@_) |
|
1383
|
63 |
0 |
unless ($name) |
|
1384
|
5 |
58 |
if defined $self->{'_quoted_table'} |
|
1385
|
0 |
58 |
$self->_Handle->QuoteTableNames ? : |
|
1389
|
0 |
0 |
$self->_Handle->QuoteTableNames ? : |
|
1401
|
1397 |
487 |
if (@_) |