Branch Coverage

blib/lib/MCP/Client.pm
Criterion Covered Total %
branch 21 28 75.0


line true false branch
19 70 18 $self->{'id'} ? :
33 0 10 unless my $session_id = $self->session_id
36 0 10 if (my $err = $tx->error)
37 0 0 if $err->{'code'}
75 88 17 if (my $session_id = $self->session_id)
85 6 6 unless $event->{'text'} and my $res = eval { do { from_json($event->{'text'}) } }
86 0 6 unless defined $res->{'id'} and defined $id and $res->{'id'} eq $id
94 103 2 if (my $session_id = $tx->res->headers->header("Mcp-Session-Id"))
97 17 88 if $tx->res->code eq 202
99 11 77 if (my $err = $tx->error)
100 6 5 if $err->{'message'} eq "Interrupted"
101 5 0 if $err->{'code'}
109 0 80 unless $res
110 9 71 if (my $err = $res->{'error'})