| line |
true |
false |
branch |
|
33
|
1 |
0 |
if @_ % 2 |
|
35
|
1 |
0 |
defined $host ? : |
|
41
|
0 |
1 |
defined $arg{'Timeout'} ? : |
|
|
1 |
0 |
if $obj = $type->SUPER::new('PeerAddr', $host = $h, 'PeerPort', $arg{'Port'} || 'snpp(444)', 'Proto', 'tcp', 'Timeout', defined $arg{'Timeout'} ? $arg{'Timeout'} : 120) |
|
51
|
0 |
1 |
unless defined $obj |
|
57
|
0 |
1 |
exists $arg{'Debug'} ? : |
|
59
|
0 |
1 |
unless ($obj->response == CMD_OK()) |
|
74
|
0 |
1 |
unless @_ == 2 |
|
80
|
0 |
0 |
unless @_ == 2 |
|
88
|
1 |
0 |
if (@_) |
|
92
|
1 |
0 |
if (exists $arg{'Pager'}) |
|
94
|
0 |
1 |
ref $arg{'Pager'} ? : |
|
98
|
0 |
1 |
unless $me->_PAGE($pager) |
|
101
|
1 |
0 |
if exists $arg{'Message'} |
|
104
|
1 |
0 |
if exists $arg{'Hold'} |
|
107
|
0 |
1 |
if exists $arg{'HoldLocal'} |
|
110
|
0 |
1 |
if exists $arg{'Coverage'} |
|
113
|
1 |
0 |
$arg{'Alert'} ? : |
|
|
1 |
0 |
if exists $arg{'Alert'} |
|
116
|
0 |
1 |
if exists $arg{'ServiceLevel'} |
|
129
|
0 |
1 |
unless $ok and @_ |
|
137
|
0 |
0 |
unless @_ == 2 or @_ == 3 |
|
143
|
0 |
0 |
unless @_ == 1 |
|
146
|
0 |
0 |
$me->_HELP ? : |
|
152
|
0 |
0 |
unless @_ == 1 |
|
155
|
0 |
0 |
unless $me->_XWHO |
|
162
|
0 |
0 |
if $line =~ /^\s*(\S+)\s*(.*)/ |
|
170
|
0 |
0 |
unless @_ == 2 |
|
174
|
0 |
0 |
if ($level < 0 or $level > 11) |
|
185
|
0 |
0 |
unless @_ == 1 or @_ == 2 |
|
187
|
0 |
0 |
@_ == 1 || shift() ? : |
|
194
|
0 |
0 |
unless @_ == 1 |
|
200
|
0 |
1 |
unless @_ == 2 or @_ == 3 |
|
203
|
0 |
1 |
shift() ? : |
|
214
|
0 |
0 |
unless @_ == 2 |
|
220
|
0 |
0 |
unless @_ == 2 |
|
226
|
0 |
0 |
unless @_ == 2 |
|
232
|
0 |
1 |
unless @_ == 1 |
|
238
|
0 |
1 |
unless @_ == 2 |
|
244
|
0 |
0 |
unless @_ == 1 |
|
250
|
0 |
0 |
unless @_ == 2 |
|
256
|
0 |
0 |
unless @_ == 2 |
|
263
|
0 |
4 |
unless @_ == 3 |
|
270
|
0 |
0 |
unless @_ == 3 |
|
275
|
0 |
0 |
if ($resp == 9 or $resp == 8 or $resp == 7) |
|
282
|
0 |
0 |
if ($msg =~ /^\s*(\d+)\s+(\d+)([+-]?\d*)\s+(.*)$/) { } |
|
291
|
0 |
0 |
wantarray ? : |
|
297
|
0 |
0 |
unless @_ == 1 |
|
305
|
0 |
0 |
if ($out[3] == 9 or $out[3] == 8) |
|
310
|
0 |
0 |
wantarray ? : |
|
315
|
0 |
1 |
unless @_ == 1 |
|
321
|
0 |
0 |
unless @_ == 2 |
|
327
|
0 |
1 |
unless @_ == 1 |
|
343
|
0 |
1 |
if defined fileno $snpp |
|
360
|
0 |
17 |
unless $_[1] =~ s/^(\d\d\d)(.?)//o |