| line |
true |
false |
branch |
|
53
|
0 |
0 |
unless defined $first
|
|
55
|
0 |
0 |
if (scalar @rest == 0 and eval {
|
|
58
|
0 |
0 |
unless $dbh = "DBI"->connect($first, @rest)
|
|
97
|
0 |
0 |
if (builtin::blessed($type) and $type->isa("Data::Identifier"))
|
|
104
|
0 |
0 |
if ($type->eq('uuid')) { }
|
|
113
|
0 |
0 |
unless eval {
|
|
115
|
0 |
0 |
if ($autocreate) { }
|
|
131
|
0 |
0 |
unless defined $style and length $style
|
|
133
|
0 |
0 |
if ($style eq 'ise') { }
|
|
|
0 |
0 |
elsif ($style eq 'tagpool') { }
|
|
|
0 |
0 |
elsif ($style eq 'sirtx') { }
|
|
136
|
0 |
0 |
unless ($opts{'as_is'})
|
|
139
|
0 |
0 |
if (not defined $role and $specification =~ s/^(.+)\@([^\@]+)$/$2/)
|
|
144
|
0 |
0 |
if ($specification =~ /^[0-9a-f]{8}-(?:[0-9a-f]{4}-){3}[0-9a-f]{12}$/)
|
|
160
|
0 |
0 |
if ($specification =~ m[^/([0-9]+)$]) { }
|
|
|
0 |
0 |
elsif ($specification =~ m[^/([a-z_]+)$]) { }
|
|
|
0 |
0 |
elsif ($specification =~ /^\*([0-9]+)$/) { }
|
|
|
0 |
0 |
elsif ($specification eq '*') { }
|
|
|
0 |
0 |
elsif ($specification =~ /^\'([0-9]+)$/) { }
|
|
|
0 |
0 |
elsif ($specification eq q[']) { }
|
|
|
0 |
0 |
elsif ($specification =~ /^[\&\%]([0-9a-zA-Z_]+)$/) { }
|
|
|
0 |
0 |
elsif ($specification =~ /^(.+):(.+)$/) { }
|
|
184
|
0 |
0 |
if ($port_tag == $p or $port_tag->dbid eq $p->dbid)
|
|
196
|
0 |
0 |
if (defined $type)
|
|
197
|
0 |
0 |
unless (ref $type)
|
|
208
|
0 |
0 |
if (scalar @candidates == 0 and defined $backup_type)
|
|
221
|
0 |
0 |
if ($important)
|
|
229
|
0 |
0 |
if (defined $role)
|
|
235
|
0 |
0 |
if (scalar @candidates == 1) { }
|
|
|
0 |
0 |
elsif (scalar @candidates > 1) { }
|
|
292
|
0 |
0 |
if (builtin::blessed($ids) and $ids->isa("Data::Identifier"))
|
|
296
|
0 |
0 |
if (builtin::blessed($addional_ids) and $addional_ids->isa("Data::Identifier"))
|
|
304
|
0 |
0 |
unless defined $value
|
|
306
|
0 |
0 |
if length $query
|
|
317
|
0 |
0 |
if (defined $row and defined $row->[0] and $row->[0] > 0) { }
|
|
322
|
0 |
0 |
if ($self->_DBI_name eq 'Pg') { }
|
|
338
|
0 |
0 |
if (defined $addional_ids)
|
|
343
|
0 |
0 |
unless defined $value
|
|
420
|
0 |
0 |
if $self->{'transaction_refc'} or defined $self->{'transaction_type'}
|
|
427
|
0 |
0 |
unless $self->{'transaction_refc'}
|
|
429
|
0 |
0 |
if $self->{'transaction_refc'}
|
|
435
|
0 |
0 |
unless $self->{'transaction_refc'}
|
|
437
|
0 |
0 |
if $self->{'transaction_refc'}
|
|
446
|
0 |
0 |
unless $type eq "ro" or $type eq "rw"
|
|
447
|
0 |
0 |
if $self->{'transaction_refc'}
|
|
449
|
0 |
0 |
unless (defined $self->{'transaction_type'})
|
|
455
|
0 |
0 |
if ($self->{'transaction_type'} eq $type or $self->{'transaction_type'} eq 'rw') { }
|
|
|
0 |
0 |
elsif ($self->{'transaction_type'} eq 'ro' and $type eq 'rw') { }
|
|
463
|
0 |
0 |
unless (defined $error)
|
|
469
|
0 |
0 |
unless ($self->{'transaction_open'})
|
|
474
|
0 |
0 |
if defined $error
|
|
489
|
0 |
0 |
unless defined $dbh
|
|
496
|
0 |
0 |
if (defined $cache->{$dbid}) { }
|
|
502
|
0 |
0 |
if ($done++ > 1024)
|
|
516
|
0 |
0 |
if (defined $self->{'cache_ise'}{$ise}) { }
|
|
530
|
0 |
0 |
unless defined $cache->{$key}
|
|
542
|
0 |
0 |
unless defined $id
|
|
543
|
0 |
0 |
if eval {
|
|
550
|
0 |
0 |
if (defined $self->{'cache_default_type'}{$relation_dbid}) { }
|
|
554
|
0 |
0 |
if (defined $type) { }
|
|
|
0 |
0 |
elsif (defined $self->{'backup_type'}{$relation_dbid}) { }
|
|
568
|
0 |
0 |
if (defined $self->{'cache_default_encoding'}{$type_dbid}) { }
|
|
588
|
0 |
0 |
unless $v =~ /^[0-9]+$/
|
|
637
|
0 |
0 |
unless defined $row
|
|
648
|
0 |
0 |
if ($opts{'package'} eq 'Data::TagDB::Metadata') { }
|
|
656
|
0 |
0 |
if (defined $opts{'limit'})
|
|
662
|
0 |
0 |
$neg ? :
|
|
663
|
0 |
0 |
if (defined $opts{$curkey})
|
|
664
|
0 |
0 |
ref $opts{$curkey} eq 'ARRAY' ? :
|
|
667
|
0 |
0 |
unless $ent->isa("Data::TagDB::Tag")
|
|
670
|
0 |
0 |
$neg ? :
|
|
675
|
0 |
0 |
if (defined $opts{'data_raw'})
|
|
680
|
0 |
0 |
if (scalar @where)
|
|
684
|
0 |
0 |
if (defined $opts{'order_by'})
|
|
685
|
0 |
0 |
ref $opts{'order_by'} eq 'ARRAY' ? :
|
|
686
|
0 |
0 |
if (scalar @list)
|
|
698
|
0 |
0 |
if (defined $parts{$key})
|
|
699
|
0 |
0 |
if length $q
|
|
715
|
0 |
0 |
if ($opts{'package'} eq 'Data::TagDB::Metadata') { }
|
|
734
|
0 |
0 |
unless ref $direct eq "ARRAY"
|
|
735
|
0 |
0 |
unless ref $indirect eq "ARRAY" or not defined $indirect
|
|
737
|
0 |
0 |
unless scalar @{$direct;}
|
|
739
|
0 |
0 |
if (defined $indirect and not scalar @{$indirect;})
|
|
743
|
0 |
0 |
if (defined $opts{'indirect'}) { }
|
|
753
|
0 |
0 |
if ($row->[1]) { }
|
|
778
|
0 |
0 |
if ($function =~ /^tag_by_/) { }
|
|
785
|
0 |
0 |
unless defined $row->{'tag'} and $row->{'tag'} > 0
|