Branch Coverage

blib/lib/Rose/DB/Oracle.pm
Criterion Covered Total %
branch 11 132 8.3


line true false branch
45 16 0 if (@_)
52 0 16 if ($arg) { }
61 0 16 $arg ? :
75 0 10 if (@_)
77 0 0 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
94 0 10 unless (@_)
97 0 0 unless $self->default_post_connect_sql
0 0 unless $self->{'post_connect_sql'}
98 0 0 unless $self->default_post_connect_sql
0 0 unless $self->{'post_connect_sql'}
0 0 wantarray ? :
101 10 0 if (@_ == 1 and ref $_[0] eq 'ARRAY') { }
111 0 0 unless $self->default_post_connect_sql
0 0 unless $self->{'post_connect_sql'}
112 0 10 unless $self->default_post_connect_sql
0 10 unless $self->{'post_connect_sql'}
0 10 wantarray ? :
118 0 0 if @_
129 0 0 unless defined $table
132 0 0 unless defined $column
143 9 0 if ($args{'host'} or $args{'port'})
145 0 9 if ($args{'service'}) { }
170 0 0 if defined $self->{'database_version'}
176 0 0 if ($version =~ /^(\d+)\.(\d+)(?:\.(\d+))?/)
197 0 0 $args{'include_views'} ? :
207 0 0 unless my($dbh) = $self->dbh
217 0 0 unless $table->{'TABLE_NAME'} =~ /^BIN\$.+\$.+/
224 0 0 if ($error)
229 0 0 wantarray ? :
236 0 0 unless my $dbh = $self->dbh
257 0 0 if ($error)
274 0 0 unless my $dbh = $self->dbh
298 0 0 if ($error)
300 0 0 if ("DBI"->err == 8002)
302 0 0 if (defined $self->next_value_in_sequence($sequence_name))
323 0 0 unless my $dbh = $self->dbh
344 0 0 if ($error)
348 0 0 if ($dbi_error == 8002) { }
0 0 elsif ($dbi_error == 2289) { }
350 0 0 if (defined $self->next_value_in_sequence($sequence_name))
381 0 0 unless defined $default
438 0 0 @_ == 1 ? :
440 0 0 unless my $table = $args{'table'}
466 0 0 if ($error or not $columns)
469 0 0 unless defined $error
475 0 0 wantarray ? :
485 0 0 if ($offset) { }
521 0 0 unless ref $lock
523 0 0 if $lock->{'for_update'}
525 0 0 unless ($lock->{'type'} eq "for update")
534 0 0 if (my $on = $lock->{'on'}) { }
0 0 elsif (my $columns = $lock->{'columns'}) { }
542 0 0 if ($tables)
557 0 0 defined $map{$1} ? :
0 0 /^([^.]+)\.([^.]+)$/ ? :
0 0 ref $_ eq 'SCALAR' ? :
563 0 0 if (@columns)
568 0 0 if ($lock->{'nowait'}) { }
0 0 elsif (my $wait = $lock->{'wait'}) { }
577 0 0 if ($lock->{'skip_locked'})
585 0 0 $_[1] ? :
586 0 0 $_[1] ? :
597 0 0 unless $_[1] =~ /^(?:CURRENT_|SYS|LOCAL)(?:TIMESTAMP|DATE)$/i
624 0 0 if ($value =~ /\d\d:/) { }
648 0 0 unless s/( \d\d:\d\d:\d\d)(?!\.)/$1.000000/ or s/( \d\d:\d\d:\d\d\.)(\d{1,5})(\D|$)/"$1$2" . 0 x (6 - length($2)) . $3;/e
666 0 0 unless s/( \d\d:\d\d:\d\d)(?!\.)/$1.000000/ or s/( \d\d:\d\d:\d\d\.)(\d{1,5})(\D|$)/"$1$2" . 0 x (6 - length($2)) . $3;/e