Branch Coverage

lib/Net/EGTS/Simple.pm
Criterion Covered Total %
branch 0 30 0.0


line true false branch
83 0 0 if $self->socket
109 0 0 unless defined $res
112 0 0 if ($p)
113 0 0 unless $p->PT eq 0
114 0 0 unless $p->RPID eq $packet->PID
120 0 0 if time > $start + $self->rtimeout
122 0 0 unless $response
125 0 0 unless $record
128 0 0 unless $subrecord
129 0 0 unless $subrecord->RST eq 0
159 0 0 unless (my $res = print({$self->socket;} $auth->encode))
163 0 0 unless (my $res = $self->_response($auth))
186 0 0 unless $oid
202 0 0 unless (my $res = print({$self->socket;} $pd->encode))
206 0 0 unless (my $res = $self->_response($pd))