| line |
true |
false |
branch |
|
191
|
0 |
0 |
unless $$self{'do_interp'} |
|
198
|
0 |
0 |
unless exists $$self{'const'}{$type} or exists $$self{'ext_const'}{$type} |
|
201
|
0 |
0 |
if $num < 0 |
|
215
|
0 |
0 |
unless exists $$self{'const'}{$type} or exists $$self{'ext_const'}{$type} |
|
218
|
0 |
0 |
unless exists $$self{'const_num'}{$type} |
|
220
|
0 |
0 |
if (exists $$self{'const_num'}{$type}{$x}) { } |
|
|
0 |
0 |
elsif (exists $$self{'ext_const_num'}{$type}{$x}) { } |
|
466
|
0 |
0 |
if $code & 128 |
|
473
|
0 |
0 |
if ($info) { } |
|
475
|
0 |
0 |
if (ref $i[0] eq 'CODE') { } |
|
482
|
0 |
0 |
if (not ref $f) { } |
|
486
|
0 |
0 |
if (ref $f[0] eq 'CODE' or ref $f[1] eq 'CODE') { } |
|
|
0 |
0 |
elsif (not ref $f[1]) { } |
|
487
|
0 |
0 |
if $f[0] |
|
492
|
0 |
0 |
if $$self{'do_interp'} and $v == 0 || $v == 1 && $f[1][1] |
|
510
|
0 |
0 |
unless exists $h{'code'} |
|
511
|
0 |
0 |
unless $h{'sequence_number'} |
|
512
|
0 |
0 |
unless $h{'synthetic'} |
|
517
|
0 |
0 |
if ($info) { } |
|
519
|
0 |
0 |
if (ref $i[0] eq 'CODE') { } |
|
526
|
0 |
0 |
if (not ref $f) { } |
|
530
|
0 |
0 |
if (ref $f[0] eq 'CODE' or ref $f[1] eq 'CODE') { } |
|
|
0 |
0 |
elsif (not ref $f[1]) { } |
|
531
|
0 |
0 |
if $f[1] |
|
536
|
0 |
0 |
if $v eq $f[1][0] |
|
537
|
0 |
0 |
if $v eq $f[1][1] and $f[1][1] |
|
544
|
0 |
0 |
if $do_seq |
|
545
|
0 |
0 |
$h{'synthetic'} ? : |
|
558
|
0 |
0 |
if $x & 1 |
|
586
|
0 |
0 |
if ($type == 2) { } |
|
|
0 |
0 |
elsif ($$self{'error_type'}[$type] == 1 or $$self{'ext_error_type'}[$type] == 1) { } |
|
606
|
0 |
0 |
if ($type == 0) { } |
|
|
0 |
0 |
elsif ($type > 1) { } |
|
612
|
0 |
0 |
if ($$self{'event_handler'} eq 'queue') { } |
|
624
|
0 |
0 |
if ($$self{'replies'}{$seq}) { } |
|
639
|
0 |
0 |
if $stat == $seq |
|
640
|
0 |
0 |
if $stat == -1 and $$self{'error_seq'} == $seq |
|
647
|
0 |
0 |
unless $data |
|
653
|
0 |
0 |
if ($$self{'event_handler'} ne 'queue') |
|
2036
|
0 |
0 |
if ($major =~ /^\d+$/) { } |
|
2039
|
0 |
0 |
unless exists $$self{'ext_request_num'}{$name} |
|
2042
|
0 |
0 |
if int $major == 0 |
|
2052
|
0 |
0 |
unless defined $minor |
|
2054
|
0 |
0 |
if $len > $$self{'maximum_request_length'} |
|
2055
|
0 |
0 |
if ($len <= 65535) { } |
|
2058
|
0 |
0 |
unless $$self{'ext'}{'BIG_REQUESTS'} |
|
2067
|
0 |
0 |
if (@$op == 2) { } |
|
|
0 |
0 |
elsif (@$op == 3) { } |
|
|
0 |
0 |
elsif (@$op == 4) { } |
|
2086
|
0 |
0 |
unless @stuff |
|
2087
|
0 |
0 |
if ($$op[3] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($$op[3] eq 'HASH') { } |
|
2107
|
0 |
0 |
if @$op == 4 |
|
2113
|
0 |
0 |
if (@$op == 2) |
|
2124
|
0 |
0 |
if ($stat == $seq) { } |
|
|
0 |
0 |
elsif ($stat == -1 and $$self{'error_seq'} == $seq) { } |
|
2126
|
0 |
0 |
if (@$op == 3) { } |
|
2163
|
0 |
0 |
if ($$self{'atom_names'}[$num]) { } |
|
2175
|
0 |
0 |
if (exists $$self{'atoms'}{$name}) { } |
|
2196
|
0 |
0 |
unless my($major, $event, $error) = $self->req('QueryExtension', $name) |
|
2199
|
0 |
0 |
unless (defined eval {
do {
require "X11/Protocol/Ext/$name.pm"
}
}) |
|
2200
|
0 |
0 |
if substr($@, 0, 30) eq q[Can't locate X11/Protocol/Ext/] |
|
2205
|
0 |
0 |
unless $obj |
|
2219
|
0 |
0 |
if ($$self{'rsrc_id'} == $$self{'rsrc_max'} + 1) |
|
2220
|
0 |
0 |
if (exists $$self{'ext'}{'XC_MISC'}) { } |
|
2240
|
1 |
0 |
if (@_ == 0 or $_[0] eq '') { } |
|
2241
|
0 |
1 |
if ($ENV{'DISPLAY'}) { } |
|
2248
|
0 |
0 |
if (ref $_[0]) { } |
|
2255
|
1 |
0 |
unless ($conn) |
|
2256
|
0 |
1 |
unless $display =~ m[^(?:[^:]*?/)?(.*):(\d+)(?:.(\d+))?$] |
|
2258
|
0 |
1 |
unless $host = $1 |
|
2260
|
1 |
0 |
unless $screen = $3 |
|
2261
|
1 |
0 |
if ($] >= 5.00301) { } |
|
2262
|
1 |
0 |
if ($host eq 'unix') { } |
|
2275
|
0 |
0 |
if ($host eq 'unix') { } |
|
2303
|
0 |
0 |
if (ref $_[1] eq 'ARRAY') { } |
|
|
0 |
0 |
elsif ($display and eval {
do {
require X11::Auth
}
}) { } |
|
2307
|
0 |
0 |
if $auth = 'X11::Auth'->new |
|
2326
|
0 |
0 |
if ($ret == 0) { } |
|
|
0 |
0 |
elsif ($ret == 2) { } |
|
|
0 |
0 |
elsif ($ret == 1) { } |
|
2418
|
0 |
0 |
if defined $screen and $screen <= $#{$$self{'screens'};} |
|
2430
|
0 |
0 |
if $name eq 'DESTROY' |
|
2431
|
0 |
0 |
if ($name =~ /^[A-Z]/) { } |
|
2437
|
0 |
0 |
if (@$op == 2) { } |
|
|
0 |
0 |
elsif (@$op == 3) { } |
|
2460
|
0 |
0 |
if (@_ == 1) { } |
|
|
0 |
0 |
elsif (@_ == 2) { } |