Branch Coverage

lib/Test/WWW/Mechanize/Driver/Util.pm
Criterion Covered Total %
branch 25 66 37.8


line true false branch
44 15 3 unless $p
48 0 3 &reftype($v) && 'ARRAY' eq &reftype($v) ? :
74 0 0 ref $_[0] eq 'SCALAR' ? :
75 0 0 @_ ? :
76 0 0 unless open my $F, $mode, $f
77 0 0 if (wantarray) { }
104 0 433 unless ref $x
106 0 433 if @_ and 'HASH' eq ref $_[-1]
107 433 0 unless exists $o->{'sep'}
108 433 0 unless exists $o->{'false_pat'} and defined $o->{'false_pat'}
110 433 0 defined $o->{'sep'} ? :
0 433 'ARRAY' eq ref $_ ? :
111 0 433 if (ref $x eq 'ARRAY') { }
112 0 0 unless $#{$x;} >= $x[0] and $$x[$x[0]]
113 0 0 if not ref $$x[$x[0]] and $$x[$x[0]] =~ /$o->{'false_pat'}/
114 0 0 if ref $$x[$x[0]] eq 'ARRAY'
115 0 0 if ref $$x[$x[0]] eq 'HASH'
116 0 0 if @x > 1
118 313 120 unless exists $$x{$x[0]} and $$x{$x[0]}
119 0 120 if not ref $$x{$x[0]} and $$x{$x[0]} =~ /$o->{'false_pat'}/
120 0 120 if ref $$x{$x[0]} eq 'ARRAY'
121 0 120 if ref $$x{$x[0]} eq 'HASH'
122 0 120 if @x > 1
145 0 86 unless ref $x
147 0 86 if @_ and 'HASH' eq ref $_[-1]
148 86 0 unless exists $o->{'sep'}
150 86 0 defined $o->{'sep'} ? :
0 86 'ARRAY' eq ref $_ ? :
151 0 86 if (ref $x eq 'ARRAY') { }
152 0 0 unless $#{$x;} >= $x[0] and defined $$x[$x[0]]
153 0 0 if @x > 1
155 40 46 unless exists $$x{$x[0]} and defined $$x{$x[0]}
156 0 46 if @x > 1