Branch Coverage

blib/lib/MCP/Client.pm
Criterion Covered Total %
branch 16 22 72.7


line true false branch
18 46 3 $self->{'id'} ? :
61 49 3 if (my $session_id = $self->session_id)
71 5 5 unless $event->{'text'} and my $res = eval { do { from_json($event->{'text'}) } }
72 0 5 unless defined $res->{'id'} and defined $id and $res->{'id'} eq $id
80 52 0 if (my $session_id = $tx->res->headers->header("Mcp-Session-Id"))
83 3 49 if $tx->res->code eq 202
85 5 44 if (my $err = $tx->error)
86 5 0 if $err->{'message'} eq "Interrupted"
87 0 0 if $err->{'code'}
95 0 48 unless $res
96 8 40 if (my $err = $res->{'error'})