Condition Coverage

blib/lib/Net/SIP/Simple/Call.pm
Criterion Covered Total %
condition 58 121 47.9


and 3 conditions

line !l l&&!r l&&r condition
247 28 0 0 $param->{'sdp_on_ack'} and $ack
333 0 6 0 $code and $code =~ /^1\d\d/
373 0 27 0 $code and $code =~ /^1\d\d/
409 0 0 0 $code and $code =~ /^1\d\d/
448 12 0 12 not %payload_type and my $m = shift @methods
453 0 0 6 $self->{'param'}{'sdp_peer'} && $self->{'param'}{'sdp_peer'}->name2int('telephone-event/8000', 'audio')
548 16 0 0 $resp and UNIVERSAL::isa($resp, 'Net::SIP::Packet')
604 13 0 31 $ls and @$ls
13 31 0 $ls and @$ls and @media != @$ls
623 0 34 9 $m->{'media'} eq 'audio' and $param->{'cb_dtmf'}
663 48 4 0 $sdp and not UNIVERSAL::isa($sdp, 'Net::SIP::SDP')
705 35 0 0 $rp->[3] && $rp->[0] == 101
736 0 52 0 not $param->{'media_ssocks'} and $param->{'asymetric_rtp'}

or 2 conditions

line l !l condition
93 16 35 $param ||= {}
95 0 51 $param->{'rtp_param'} ||= [0, 160, 0.02]
96 0 51 $param->{'dtmf_events'} ||= []
208 105 0 shift() || (return)
257 9 27 $param->{'cb_final'} ||= \$stopvar
272 0 0 shift() || (return)
327 6 0 shift() || (return)
366 27 0 shift() || (return)
407 0 0 shift() || (return)
444 12 0 $args{'duration'} || 100
445 12 0 $args{'methods'} || 'rfc2833,audio'
456 0 6 $self->{'param'}{'sdp_peer'} && $self->{'param'}{'sdp_peer'}->name2int('PCMU/8000', 'audio') || 0
613 44 0 $m->{'range'} || 1
625 0 9 $param->{'dtmf_methods'} || 'audio,rfc2833'
707 0 35 $rp->[0] || 0
747 0 0 INETSOCK(@arg) || die($!)
750 0 0 INETSOCK(@arg) || die($!)

or 3 conditions

line l !l&&r !l&&!r condition
85 16 35 0 $ctx->{'from'} ||= $self->{'from'}
86 0 0 51 $ctx->{'contact'} ||= $self->{'contact'}
87 0 1 50 $ctx->{'auth'} ||= $self->{'auth'}
88 0 0 51 $ctx->{'route'} ||= $self->{'route'}
94 6 45 0 $param->{'init_media'} ||= $self->rtp('media_recv_echo')
212 0 1 6 not $code or $code != 487
323 0 0 6 $cb ||= $args{'send_cancel'}
362 27 0 0 $cb ||= $args{'send_bye'}
517 13 3 32 $method eq 'BYE' or $method eq 'CANCEL'
16 16 0 $method eq 'ACK' or $method eq 'INVITE'
542 3 13 0 $param->{'leg'} ||= $leg
588 44 0 0 shift() || $param->{'sdp_peer'}
615 0 1 43 not $m->{'port'} or $paddr eq '0.0.0.0'
1 0 43 not $m->{'port'} or $paddr eq '0.0.0.0' or $paddr eq '::'
662 4 0 48 $param->{'_sdp_saved'} || $param->{'sdp'}
739 0 0 0 $param->{'rtp_addr'} || $laddr