| line |
true |
false |
branch |
|
34
|
0 |
3 |
defined $args{'Timeout'} ? : |
|
|
0 |
3 |
unless my $self = $package->SUPER::new('PeerAddr', $args{'Host'} || 'rgtp-serv.groggs.group.cam.ac.uk', 'PeerPort', $args{'Port'} || 'rgtp(1431)', 'LocalAddr', $args{'LocalAddr'}, 'Proto', 'tcp', 'Timeout', defined $args{'Timeout'} ? $args{'Timeout'} : 120) |
|
42
|
0 |
3 |
if $args{'Debug'} |
|
44
|
0 |
3 |
unless ($self->response) |
|
51
|
0 |
3 |
if ($self->code < 230 or $self->code > 232) |
|
84
|
0 |
3 |
if $itemid eq 'motd' |
|
86
|
0 |
3 |
unless _is_valid_itemid($itemid) |
|
95
|
0 |
3 |
if $itemid eq 'motd' |
|
105
|
1 |
2 |
if $parent ne ' ' |
|
106
|
1 |
2 |
if $child ne ' ' |
|
107
|
0 |
3 |
if $edit ne ' ' |
|
123
|
1 |
2 |
if ($self->code >= 230 and $self->code <= 233) |
|
124
|
0 |
1 |
if (defined $secret) |
|
132
|
0 |
2 |
if ($self->code eq '500') |
|
139
|
2 |
0 |
if ($algorithm eq 'MD5') |
|
183
|
0 |
2 |
unless ($server_hash eq substr(lc $self->message, 0, 32)) |
|
197
|
0 |
1 |
if (defined ${*$self;}{'net_rgtp_latest'}) { } |
|
206
|
0 |
1 |
if ($self->code eq '531') |
|
223
|
32 |
9331 |
if ($type eq 'M') |
|
229
|
789 |
8574 |
if ($type eq 'C') { } |
|
|
787 |
7787 |
elsif ($type eq 'F') { } |
|
232
|
787 |
0 |
if (defined ${*$self;}{'net_rgtp_childlink'}) |
|
241
|
1656 |
806 |
if ($type eq 'R' or $type eq 'I' or $type eq 'C') |
|
248
|
8575 |
788 |
if $seq > $latest_seq |
|
261
|
0 |
0 |
if (defined $setting) { } |
|
262
|
0 |
0 |
if (defined $$setting{'latest'}) { } |
|
270
|
0 |
0 |
if (defined ${*$self;}{'net_rgtp_latest'}) { } |
|
298
|
0 |
12 |
if $self->code eq '531' |
|
307
|
0 |
12 |
if $self->_malformed_posting |
|
310
|
2 |
10 |
if ($itemid eq 'new' or $itemid eq 'continue') { } |
|
|
0 |
10 |
elsif ($itemid eq 'motd') { } |
|
312
|
0 |
2 |
unless my $subject = $args{'Subject'} |
|
315
|
1 |
1 |
if ($itemid eq 'continue') { } |
|
316
|
0 |
1 |
unless $item_was_full |
|
326
|
0 |
2 |
if $self->_malformed_posting |
|
328
|
0 |
2 |
if ($self->code eq '122') |
|
337
|
0 |
2 |
if ($self->code eq '520') |
|
355
|
0 |
10 |
unless _is_valid_itemid($itemid) |
|
357
|
2 |
8 |
if (defined $args{'Seq'}) |
|
360
|
1 |
1 |
if ($$quick{'reply'} != $args{'Seq'}) |
|
370
|
0 |
9 |
if $self->_malformed_posting |
|
372
|
1 |
8 |
if ($self->code eq '421') |
|
380
|
0 |
8 |
if ($self->code eq '122') |
|
397
|
1 |
9 |
if (wantarray) { } |
|
428
|
0 |
4 |
if $self->code eq '531' |
|
429
|
0 |
4 |
if $self->code eq '410' |
|
434
|
1 |
3 |
if ($args{'motd'}) { } |
|
438
|
1 |
0 |
if (${*$self;}{'net_rgtp_groggsbug'}) { } |
|
450
|
2 |
1 |
if $parent ne ' ' |
|
451
|
1 |
2 |
if $child ne ' ' |
|
452
|
0 |
3 |
if $edit ne ' ' |
|
457
|
15 |
430 |
if (($seq, $timestamp) = $line =~ /^\^([0-9a-fA-F]{8}) ([0-9a-fA-F]{8})/) { } |
|
458
|
12 |
3 |
if $current_response |
|
472
|
3 |
1 |
unless ($args{'no_parse_headers'}) |
|
478
|
14 |
1 |
if (($username) = $$response{'text'} =~ /^.* from (.*) at .*\n/) |
|
480
|
5 |
9 |
if ($username =~ /\(.*\)$/) { } |
|
485
|
1 |
8 |
if ($$response{'text'} =~ /From (.*)\n/) |
|
492
|
3 |
12 |
if ($$response{'text'} =~ /Subject: (.*)\n/) |
|
502
|
1 |
3 |
if ($args{'motd'}) |
|
511
|
13 |
0 |
if ((shift()) =~ /^[A-Za-z]\d{7}$/) { } |
|
522
|
0 |
6 |
if $self->code < 230 or $self->code > 233 |
|
531
|
0 |
45 |
if ($self->code ne $expectation) |
|
540
|
0 |
23 |
if ($self->code eq '423') |
|
541
|
0 |
23 |
if ($self->code eq '424') |
|
542
|
0 |
23 |
if ($self->code eq '425') |