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) { } |