| line |
true |
false |
branch |
|
38
|
0 |
2 |
@_ == 1 ? : |
|
49
|
0 |
4 |
unless defined($self->{$key} = $args->{$key}) |
|
71
|
0 |
2 |
unless ($self->{'socket'}) |
|
79
|
0 |
2 |
unless (defined $id) |
|
86
|
0 |
2 |
if $self->{'Debug_FH'} |
|
88
|
2 |
0 |
if ($id =~ m[^Asterisk Call Manager/(.+)]) { } |
|
104
|
0 |
2 |
unless ($response->{'Response'} eq 'Success') |
|
122
|
0 |
2 |
unless ($response->{'Response'} eq 'Goodbye') |
|
128
|
0 |
2 |
unless ($self->{'socket'}->close) |
|
149
|
0 |
14 |
unless my $id = $self->send_action(@_) |
|
158
|
14 |
8 |
if ($response->{'ActionID'} eq $id or $response->{'Response'} eq 'Error') |
|
164
|
4 |
4 |
if ($self->{'Event_Callback'}) |
|
174
|
6 |
8 |
@_ == 1 ? : |
|
176
|
0 |
14 |
unless $act->{'Action'} |
|
179
|
0 |
14 |
unless ($self->{'socket'}) |
|
189
|
2 |
26 |
if (ref $act->{$key}) { } |
|
199
|
0 |
14 |
if ($self->{'Debug_FH'}) |
|
207
|
0 |
14 |
unless (print {$self->{'socket'};} $message) |
|
222
|
0 |
22 |
unless ($socket) |
|
237
|
0 |
152 |
if $debug_fh |
|
239
|
22 |
130 |
unless length $line |
|
243
|
0 |
130 |
unless $line =~ s/^([^:]+): // |
|
245
|
106 |
24 |
if (not exists $response{$1}) { } |
|
|
8 |
16 |
elsif (ref $response{$1}) { } |