Branch Coverage

blib/lib/X11/Protocol/WM.pm
Criterion Covered Total %
branch 1 134 0.7


line true false branch
91 0 4 unless eval 'utf8->can("is_utf8") && *is_utf8 = \\&utf8::is_utf8' or eval 'use Encode "is_utf8"; 1' or eval 'sub is_utf8 { 0 }; 1'
100 0 0 if (defined $str) { }
125 0 0 if (&is_utf8($str)) { }
145 0 0 unless (&is_utf8($str))
153 0 0 if (length $input == 0)
176 0 0 if (defined $value) { }
192 0 0 if (defined $xid and $xid eq 'None') { }
202 0 0 if ($X->{'do_interp'} and $xid == 0) { }
212 0 0 unless (defined $root)
240 0 0 if ($count++ > 50)
247 0 0 unless (ref $ret)
253 0 0 if ($attr{'map_state'} ne 'Viewable')
264 0 0 unless (ref $ret)
269 0 0 if ($type)
276 0 0 if (ref $ret)
312 0 0 unless ref $ret[0]
315 0 0 if (my $vroot = unpack('L', $value))
329 0 0 if (defined $instance) { }
366 0 0 if (@_ and not defined $_[0])
379 0 0 if ($atom != 31)
384 0 0 if ($value eq "\000")
403 0 0 unless (defined $root)
413 0 0 if ($format == 32) { }
446 0 0 if ($format == 32) { }
481 0 0 if (delete $hint{'message'})
484 0 0 if (delete $hint{'urgency'})
491 0 0 if (defined $hint{$key})
543 0 0 unless (defined $value)
548 0 0 if ($flags & $bit)
553 0 0 if ($flags & 128)
556 0 0 if ($flags & 256)
595 0 0 if (@_) { }
608 0 0 $_ =~ /^\d+$/ ? :
626 0 0 if (defined $wmstate and defined(my $num = $wmstate{$wmstate}))
643 0 0 if ($X->{'do_interp'} and defined(my $str = $wmstate[$num]))
694 0 0 if ($format == 32) { }
818 0 0 if (defined $hint{$key}) { }
842 0 0 if (exists $input_mode_num{$input_mode}) { }
864 0 0 if ($format == 32) { }
876 0 0 if (@_ < 3)
908 0 0 if ($format == 32) { }
919 0 0 unless (defined $state)
922 0 0 if ($state =~ /^\d+$/)
925 0 0 unless ($state =~ /^_NET_WM_STATE_/)
951 0 0 if ($action =~ /^\d+$/)
955 0 0 if (defined $num)
970 0 0 unless (defined $source)
973 0 0 if ($source =~ /^\d+$/)
977 0 0 if (defined $num)
994 0 0 if (%h)
1025 0 0 if (not defined $window_type or $window_type =~ /^\d+$/) { }
1097 0 0 if (defined $hint{$key}) { }
1121 0 0 if (defined(my $aspect = $$hint{"${which}_aspect"})) { }
1134 0 0 if ($aspect =~ /^\d+$/) { }
0 0 elsif (($num, $den) = $aspect =~ m[(.*)/(.*)]) { }
1146 0 0 if ($num =~ /^0*(\d*)\.(\d*?)0*$/)
1151 0 0 if ($den =~ /^0*(\d*)\.(\d*?)0*$/)
1156 0 0 if ($den_zeros > 0)
1159 0 0 if ($den_zeros < 0)
1163 0 0 if ($num == $num - 1)
1164 0 0 $den == $den - 1 ? :
1167 0 0 if ($den == $den - 1)
1172 0 0 if ($num >= $den and $num > 2147483647)
1176 0 0 if ($den > 2147483647)
1200 0 0 if ($nz and $x == 0) { }
1213 0 0 if ($nz and $y == 0) { }
0 0 elsif ($y > 2147483647) { }