Branch Coverage

blib/lib/Git/PurePerl/Protocol.pm
Criterion Covered Total %
branch 17 32 53.1


line true false branch
18 1 0 if ($self->remote =~ m[^git://(.*?@)?(.*?)(/.*)]) { }
0 0 elsif ($self->remote =~ m[^file://(/.*)]) { }
0 0 elsif ($self->remote =~ m[^ssh://(?:(.*?)@)?(.*?)(/.*)] or $self->remote =~ /^(?:(.*?)@)?(.*?):(.*)/) { }
31 0 0 $1 ? :
66 2 19 if ($line =~ s/^\x02//) { }
1 18 elsif ($line =~ /^NAK\n/) { }
18 0 elsif ($line =~ s/^\x01//) { }
83 1 3 if ($length == 0) { }
93 0 4 unless $self->write_socket->print($text)
104 0 52 if (not defined $got) { }
0 52 elsif ($got == 0) { }
110 52 0 if (length $ret == $len)
122 2 25 if $prefix eq '0000'
131 95 5 if ($c ge '0' and $c le '9') { }
5 0 elsif ($c ge 'a' and $c le 'f') { }
0 0 elsif ($c ge 'A' and $c le 'F') { }