Branch Coverage

blib/lib/WWW/Omegle.pm
Criterion Covered Total %
branch 0 42 0.0


line true false branch
44 0 0 unless $res->is_success
48 0 0 unless $id
61 0 0 unless my $callback = $$self{'om_callbacks'}{$action}
79 0 0 unless ($res->is_success)
85 0 0 unless $res->content
87 0 0 unless ($res->content =~ /^\[/)
88 0 0 if ($res->content eq 'win') { }
0 0 elsif ($res->content =~ /^"/) { }
102 0 0 unless my $events = $json->decode($res->content)
105 0 0 unless ref $events and ref $events eq 'ARRAY'
108 0 0 unless my $evt_name = $$evt[0]
110 0 0 if ($evt_name eq 'connected') { }
0 0 elsif ($evt_name eq 'gotMessage') { }
0 0 elsif ($evt_name eq 'strangerDisconnected') { }
0 0 elsif ($evt_name eq 'waiting') { }
136 0 0 unless $res
165 0 0 if (my $response = $$self{'async'}->next_response) { }
174 0 0 if $got_events
182 0 0 unless $$self{'om_id'}
189 0 0 unless $$self{'om_id'}
196 0 0 unless $$self{'om_id'}