Condition Coverage

blib/lib/File/ANVL.pm
Criterion Covered Total %
condition 25 120 20.8


and 2 conditions

line l !l condition
513 0 1 not defined $$r_hash{$name} and $$r_hash{$name} = [0]
522 1 3 not defined $$r_hash{$name} and $$r_hash{$name} = [$n]

and 3 conditions

line !l l&&!r l&&r condition
116 1 3 4 defined($s = <$filehandle>) and $rec .= $s, $substance = $s =~ /^[^#\s]/m || $s =~ /^[^#].*\S/m, !$substance
148 0 0 0 defined($s = &reader($readee, @_)) and $rec .= $s, $substance = $s =~ /^[^#\s]/m || $s =~ /^[^#].*\S/m, !$substance
175 0 0 0 defined($s = <$filehandle>) and $rec .= $s, !($s =~ /^[^#\s]/m || $s =~ /^[^#].*\S/m)
393 8 0 1 $$o{'comments'} and s/^(\d+):#/$1##:/gm, 1
840 0 0 0 $st &&= $s
0 0 0 $p and $st &&= $s, 1
886 0 0 0 $$o{'find'} and not $anvlrec =~ /$$o{'find'}/m
897 0 0 0 ref $$o{'elemsproc'} eq 'CODE' and !($pat = $$o{'elemsprocpat'}) || $anvlrec =~ /$pat/
921 0 0 0 $st &&= $s
0 0 0 $p and $st &&= $s, 1
961 0 0 0 defined $elem_name and defined($n = $rechash{$elem_name}[0])
983 0 0 0 $$o{'show'} and not "${name}: $value" =~ /$$o{'show'}/m
991 0 0 0 $$o{'invert'} and $value =~ /,\s*$/
996 0 0 0 $st &&= $s
0 0 0 $p and $st &&= $s, 1
1000 0 0 0 $st &&= $s
0 0 0 $p and $st &&= $s, 1
1008 0 0 0 $st &&= $s
0 0 0 $p and $st &&= $s, 1
1041 0 0 0 $j < $#$r_elems and not @$r_elems[$j] =~ /$subjpat/
0 0 0 $j < $#$r_elems and not @$r_elems[$j] =~ /$subjpat/ and $j += 3
1043 0 0 0 $j < $#$r_elems && $subjpat

or 2 conditions

line l !l condition
209 0 0 $rec || undef
231 4 1 $rec ||= ''
662 5 0 shift @_ || ''
700 6 0 $name ||= ''
743 17 4 $$r_elems[$i++] || ''
744 15 6 $$r_elems[$i++] || ''
978 0 0 $$r_elems[$n + 2] || ''

or 3 conditions

line l !l&&r !l&&!r condition
112 4 0 0 $filehandle ||= *ARGV
116 3 0 4 $s =~ /^[^#\s]/m || $s =~ /^[^#].*\S/m
148 0 0 0 $s =~ /^[^#\s]/m || $s =~ /^[^#].*\S/m
174 0 0 0 $filehandle ||= *ARGV
175 0 0 0 $s =~ /^[^#\s]/m || $s =~ /^[^#].*\S/m
341 2 7 0 $o ||= anvl_opt_defaults()
747 13 2 2 $name ne 'erc' or $value =~ /^\s*$/
768 8 0 0 $kernel_labels[$j++] || $unknown
823 0 0 0 $o ||= anvl_opt_defaults()
824 0 0 0 $get_anvl ||= make_get_anvl()
897 0 0 0 !($pat = $$o{'elemsprocpat'}) || $anvlrec =~ /$pat/
1029 0 0 0 $$om{'turtle_subjelpat'} || ($anvlrec =~ /^erc\s*:/m ? '^where$' : ($anvlrec =~ /^(identifier|subject)\s*:/m ? "^$1\$" : ($anvlrec =~ /^(.+)\s*:\s*(\n\s+)*\w/ ? "^$1\$" : '')))