Branch Coverage

blib/lib/JLdap.pm

Criterion	Covered	Total	%
branch	0	232	0.0

line	true	false	branch
95	0	0	wantarray ? :
	0	0	unless $query
100	0	0	if $query =~ /^show\s+tables$/i
101	0	0	if $query =~ /^select\s+TABLE_NAME\s+from\s+USER_TABLES$/i
104	0	0	if ($query =~ /^($self->{'commands'})/io) { }
109	0	0	if (not defined $status) { }
	0	0	elsif (ref $status eq 'ARRAY') { }
112	0	0	wantarray ? :
116	0	0	wantarray ? :
120	0	0	if ($status < 0) { }
125	0	0	wantarray ? :
130	0	0	wantarray ? :
136	0	0	wantarray ? :
150	0	0	if $query =~ s/select\s+distinct(\s+\w|\s*\(|\s+\*)/select $1/i
154	0	0	if ($query =~ /^select tables$/io) { }
	0	0	elsif ($query =~ /^select\s+ # Keyword  ($regex)\s+ # Columns  from\s+ # 'from'  ($path)(.*)$/iox) { }
173	0	0	unless $self->{'CaseTableNames'}
175	0	0	if ($extra =~ s/([\s|\)]+)order\s+by\s*(.*)/$1/i)
187	0	0	unless $tablehash->{$table}
190	0	0	if $allattbs and $attbs =~ s/\*//o
193	0	0	unless $attbs eq '*'
202	0	0	unless $objfilter =~ /^\(/o
204	0	0	if ($extra =~ /^\s+where\s*(.+)$/io) { }
207	0	0	unless $filter =~ /^\(/o
226	0	0	if $self->{$i}
231	0	0	unless $data = $ldap->search(@searchops)
239	0	0	unless $dn =~ /$base$/i
241	0	0	unless ($attbcnt)
261	0	0	if ($self->{'ldap_firstonly'} and $self->{'ldap_firstonly'} <= scalar @{$valuesref;}) { }
270	0	0	unless ($valuesref[0])
272	0	0	if $attr eq 'dn'
279	0	0	if ($distinct)
292	0	0	if ($#ordercols >= 0)
304	0	0	if $descorder
328	0	0	unless ref $_[0]
329	0	0	unless ref $_[0]
331	0	0	if ($lo or $hi)
357	0	0	unless $t
377	0	0	if $err > 0
378	0	0	unless defined $warn and $warn
392	0	0	unless $self->{'silent'}
409	0	0	if $errdetails
412	0	0	if $self->{'RaiseError'}
425	0	0	unless $autocommit
427	0	0	if $status > 0
428	0	0	if $status <= 0
480	0	0	unless $s
525	0	0	if ($two =~ /(?:not\s+like|is\s+not)/io) { }
	0	0	elsif ($two =~ /(?:like|is)/io) { }
540	0	0	if ($three =~ /\$QS\[(\d+)\]/)
543	0	0	if ($regex > 0)
545	0	0	unless ($opr =~ /is/io)
550	0	0	unless length $QS[$qsindx]
552	0	0	if $regex == 2 or $opr eq '!=' or $opr eq '=' and not length $QS[$qsindx]
581	0	0	unless $s =~ /^\(/o
604	0	0	unless $autocommit
606	0	0	if $status > 0
625	0	0	if ($query =~ /^update\s+($path)\s+set\s+(.+)$/i) { }
632	0	0	if ($extra =~ /^\(.+\)\s*where/io)
637	0	0	unless $self->{'CaseTableNames'}
643	0	0	unless $tablehash->{$table}
685	0	0	$extra =~ s/(.*)where(.+)$/where$1/i ? :
690	0	0	unless $objfilter =~ /^\(/o
691	0	0	if ($filter) { }
696	0	0	unless $filter =~ /^\(/o
706	0	0	if $self->{'ldap_appendbase2ins'}
720	0	0	if $val =~ "$column.$psuedocols"
731	0	0	unless $col eq $var
738	0	0	if $all_columns->{$var} =~ /\b$l[$j]\b/
740	0	0	if $all_columns->{$var}
762	0	0	if $self->{$i}
766	0	0	unless $data = $ldap->search(@searchops)
772	0	0	unless $autocommit
787	0	0	if ($i eq $j)
802	0	0	if (not @_) { }
	0	0	elsif (@_ == 1) { }
817	0	0	if ($r1 > 0) { }
819	0	0	if ($autocommit) { }
822	0	0	if ($r2->is_error)
827	0	0	if ($changedn)
830	0	0	if ($r2->is_error)
841	0	0	if $changedn
867	0	0	if ($query =~ /^delete\s+from\s+($path)(?:\s+where\s+(.+))?$/io) { }
871	0	0	unless $self->{'CaseTableNames'}
877	0	0	unless $tablehash->{$table}
880	0	0	unless $objfilter =~ /^\(/o
881	0	0	if ($wherepart =~ /\S/o) { }
884	0	0	unless $filter =~ /^\(/o
891	0	0	unless $filter =~ /^\(/o
893	0	0	unless $data = $ldap->search('base', $base, 'filter', $filter)
901	0	0	unless $autocommit
905	0	0	unless $dn =~ /$base$/i
907	0	0	if ($autocommit) { }
910	0	0	if ($r2->is_error)
936	0	0	unless $self->{'CaseTableNames'}
940	0	0	unless $tablehash->{$table}
991	0	0	if ($query =~ /^insert\s+into\s+ # Keyword  ($path)\s* # Table  (?:\((.+?)\)\s*)? # Keys  values\s* # 'values'  \((.+)\)$/iox) { }
1001	0	0	unless $self->{'CaseTableNames'}
1003	0	0	unless $tablehash->{$table}
1007	0	0	unless $columns =~ /\S/o
1009	0	0	unless ($columns =~ /\S/o)
1051	0	0	if ($#columns = $#values) { }
1060	0	0	if ($columns[$i] eq $j)
1063	0	0	if ($values[$i] =~ /\Q$self->{'ldap_inseparator'}\E/) { }
1086	0	0	unless (not length $j or $j eq q['] or $columns[$i] eq 'dn')
1088	0	0	if $j eq q['']
1095	0	0	if $self->{'ldap_appendbase2ins'}
1106	0	0	if ($attblist[$j] eq $col)
1108	0	0	if $attblist[$j + 1] eq $l[$i]
1125	0	0	if ($autocommit) { }
1128	0	0	if ($r2->is_error)
1164	0	0	unless $id =~ /CURVAL|NEXTVAL|ROWNUM/
1169	0	0	unless $self->{'CaseTableNames'}
1170	0	0	unless open FILE, "<$seq_file"
1176	0	0	if ($id =~ /NEXTVAL/o)
1178	0	0	unless open FILE, ">$seq_file"