Branch Coverage

blib/lib/GuacLite/Client/Guacd.pm
Criterion Covered Total %
branch 19 32 59.3


line true false branch
35 0 4 unless $version =~ /^VERSION_(\d+)_(\d+)_(\d+)$/u
37 0 4 unless $1 >= $v[0]
38 1 3 unless $2 >= $v[1]
39 0 3 unless $3 >= $v[2]
45 0 0 unless my $s = $self->{'stream'}
59 0 7 if $err
80 0 0 unless $self
94 0 7 unless my $stream = $self->{'stream'}
101 1 3 unless _check_version($version)
128 0 0 unless my $s = $self->{'stream'}
136 0 22 unless my $s = $self->{'stream'}
151 2 8 unless eval { do { $instruction = decode($raw); 1 } }
155 6 2 if ($got eq $command) { }
177 0 10 unless $line =~ s/;$//u
183 1 21 unless defined $l and defined $s and &Scalar::Util::looks_like_number($l)
185 1 20 unless length $s == $l