| line |
true |
false |
branch |
|
17
|
1 |
0 |
unless my $socket = 'IO::Socket::INET'->new('PeerAddr', $host, 'PeerPort', $port, 'Proto', 'tcp', 'Type', &IO::Socket::INET::SOCK_STREAM()) |
|
25
|
0 |
0 |
unless ($welcome =~ /^2/) |
|
30
|
0 |
0 |
if ($login and $password) |
|
33
|
0 |
0 |
if ($answer =~ /^2/) { } |
|
57
|
0 |
0 |
if ($status =~ /^3/) { } |
|
62
|
0 |
0 |
if $line =~ /^\.$/ |
|
88
|
0 |
0 |
if ($response =~ /^2/) { } |
|
95
|
0 |
0 |
if ($key eq 'admin') |
|
121
|
0 |
0 |
if ($response =~ /^2.*?\t(\d+)$/) { } |
|
135
|
0 |
0 |
unless ($message) |
|
140
|
0 |
0 |
if ($message > $$self{'_lastnote'}) { } |
|
145
|
0 |
0 |
if ($dammit) { } |
|
152
|
0 |
0 |
if ($response =~ /^3/) { } |
|
158
|
0 |
0 |
if $headerline =~ /^$/ |
|
161
|
0 |
0 |
if $key eq 'from' |
|
162
|
0 |
0 |
if $key eq 'formal-name' |
|
169
|
0 |
0 |
if $response =~ /^\.$/ |
|
190
|
0 |
0 |
unless (defined $$self{'_forum'}) |
|
197
|
0 |
0 |
if ($result =~ /^3/) { } |
|
199
|
0 |
0 |
if $noteinfo =~ /^\./ |
|
200
|
0 |
0 |
if $noteinfo =~ /^noteno:(\d+)/ |
|
216
|
0 |
0 |
unless defined $$self{'_forum'} |
|
220
|
0 |
0 |
if ($result =~ /^3/) { } |
|
222
|
0 |
0 |
if $noteinfo =~ /^\./ |
|
230
|
0 |
0 |
if ($tuple =~ /^(.*?):(.*)$/) { } |
|
237
|
0 |
0 |
if ($key eq 'noteno') { } |
|
|
0 |
0 |
elsif ($key eq 'formal-author') { } |
|
260
|
0 |
0 |
unless my $message = shift() |
|
262
|
0 |
0 |
unless defined $$self{'_forum'} |
|
266
|
0 |
0 |
unless ($post_resp =~ /^3/) |
|
274
|
0 |
0 |
if ($data_resp =~ /^2/) { } |
|
286
|
0 |
0 |
unless my $postid = shift() |
|
288
|
0 |
0 |
unless defined $$self{'_forum'} |
|
293
|
0 |
0 |
if ($delete_resp =~ /^2/) { } |
|
305
|
0 |
0 |
unless my $messageid = shift() |
|
307
|
0 |
0 |
if ($messageid >= $$self{'_firstnote'} and $messageid <= $$self{'_lastnote'} + 1) { } |
|
312
|
0 |
0 |
if ($response =~ /^2/) { } |
|
329
|
0 |
0 |
unless ($$self{'_loggedin'}) |
|
351
|
0 |
0 |
if ($result =~ /^3/) { } |
|
353
|
0 |
0 |
if $fromline =~ /From: (.*)/ |
|
355
|
0 |
0 |
if $dateline =~ /Date: (.*)/ |
|
361
|
0 |
0 |
if $line =~ /^\.$/ |
|
377
|
0 |
0 |
unless defined $$self{'_forum'} |
|
381
|
0 |
0 |
if ($result =~ /^2/) { } |
|
399
|
0 |
0 |
unless $socket->close |