| line |
true |
false |
branch |
|
156
|
0 |
0 |
if ($args{'article'}) { } |
|
|
0 |
0 |
elsif (my $mid = $self->clean('Message-ID', $args{'mid'})) { } |
|
|
0 |
0 |
elsif ($args{'group'} and $args{'number'}) { } |
|
158
|
0 |
0 |
unless $mid |
|
160
|
0 |
0 |
unless ($article) |
|
161
|
0 |
0 |
$args{'plaintext'} ? : |
|
167
|
0 |
0 |
unless $self->nntp->group($args{'group'}) |
|
175
|
0 |
0 |
unless $art |
|
178
|
0 |
0 |
if ($args{'plaintext'}) { } |
|
184
|
0 |
0 |
if $args{'clean'} or $args{'plaintext'} |
|
189
|
0 |
0 |
if $self->nntp->postok |
|
193
|
0 |
0 |
if $args{'fullhead'} or $args{'plaintext'} |
|
201
|
0 |
0 |
if $id |
|
204
|
0 |
0 |
if scalar @linkback |
|
211
|
0 |
0 |
if (my $group = $args{'group'} and my $number = $args{'number'}) { } |
|
229
|
0 |
0 |
$number <= $first ? : |
|
232
|
0 |
0 |
$number >= $last ? : |
|
236
|
0 |
0 |
if scalar @linkback2 |
|
295
|
0 |
0 |
if (my $mid = $args{'mid'}) { } |
|
300
|
0 |
0 |
$args{'article'} ? : |
|
320
|
0 |
0 |
unless $art->header($_) |
|
328
|
0 |
0 |
unless $art->header($_) |
|
345
|
0 |
0 |
if lc $_ eq lc $head |
|
349
|
0 |
0 |
if scalar keys %extrahead |
|
362
|
0 |
0 |
unless ($args{'nosignature'}) |
|
380
|
0 |
0 |
if lc $_ eq 'preview' |
|
381
|
0 |
0 |
if lc $_ eq 'post' |
|
418
|
0 |
0 |
unless $self->nntp->postok |
|
426
|
0 |
0 |
unless /^header_(.*)$/ |
|
437
|
0 |
0 |
if ($signature) |
|
442
|
0 |
0 |
if (not $headers and $line =~ /^([\w-]+):\s+(.*)$/) { } |
|
|
0 |
0 |
elsif (not $headers and /^\s+/) { } |
|
457
|
0 |
0 |
unless $article->header($_) |
|
460
|
0 |
0 |
if (scalar @problems) |
|
474
|
0 |
0 |
if ($preview) { } |
|
480
|
0 |
0 |
if ($@) { } |
|
530
|
0 |
0 |
unless my($count, $first, $last, $name) = $self->nntp->group($group) |
|
534
|
0 |
0 |
if (defined $args{'count'}) { } |
|
535
|
0 |
0 |
if ($args{'first'}) { } |
|
|
0 |
0 |
elsif ($args{'last'} and $args{'last'} >= $first) { } |
|
547
|
0 |
0 |
if defined $args{'first'} and $args{'first'} >= $first |
|
548
|
0 |
0 |
if defined $args{'last'} and $args{'last'} <= $last |
|
551
|
0 |
0 |
if $first <= 1 |
|
560
|
0 |
0 |
ref $fmt ? : |
|
563
|
0 |
0 |
unless my $xover = $self->nntp->xover("$first-$last") |
|
570
|
0 |
0 |
unless (scalar keys %{$xover;}) |
|
571
|
0 |
0 |
$self->nntp->postok ? : |
|
585
|
0 |
0 |
if $group |
|
610
|
0 |
0 |
if lc $_ eq 'subject' |
|
614
|
0 |
0 |
if (lc $_ eq 'newsgroups') |
|
622
|
0 |
0 |
defined $value ? : |
|
627
|
0 |
0 |
if ($even == 0) { } |
|
635
|
0 |
0 |
if $self->nntp->postok |
|
658
|
0 |
0 |
unless $params and ref $params |
|
659
|
0 |
0 |
unless $count |
|
664
|
0 |
0 |
if $last >= @{$groupinfo;}[2] |
|
682
|
0 |
0 |
$first < @{$groupinfo;}[1] ? : |
|
686
|
0 |
0 |
$$params{'sort'} eq 'thread' ? : |
|
690
|
0 |
0 |
$last >= @{$groupinfo;}[2] ? : |
|
754
|
0 |
0 |
if ($pattern) { } |
|
755
|
0 |
0 |
unless $groups = $self->nntp->active($pattern) |
|
761
|
0 |
0 |
unless $value |
|
766
|
0 |
0 |
unless $descs = $self->nntp->newsgroups('*') |
|
769
|
0 |
0 |
unless scalar keys %{$groups;} |
|
784
|
0 |
0 |
$$descs{$group} ? : |
|
788
|
0 |
0 |
if ($even == 0) { } |
|
812
|
0 |
0 |
unless my $groups = $self->nntp->active($pattern) |
|
820
|
0 |
0 |
$i eq 0 ? : |
|
828
|
0 |
0 |
wantarray ? : |
|
850
|
0 |
0 |
unless $$default{$_} eq $$hash{$_} |
|
896
|
0 |
0 |
if (lc $header eq 'subject') { } |
|
|
0 |
0 |
elsif (lc $header eq 'from') { } |
|
|
0 |
0 |
elsif (lc $header eq 'date') { } |
|
|
0 |
0 |
elsif (lc $header eq 'message-id') { } |
|
897
|
0 |
0 |
$entry ? : |
|
907
|
0 |
0 |
wantarray ? : |
|
943
|
0 |
0 |
if (lc $header eq 'newsgroups') |
|
948
|
0 |
0 |
$text ? : |
|
963
|
0 |
0 |
if $depth |
|
966
|
0 |
0 |
if ($depth < 10) { } |
|
|
0 |
0 |
elsif ($depth < 100) { } |
|
973
|
0 |
0 |
$depth ? : |
|
976
|
0 |
0 |
$3 ? : |
|
|
0 |
0 |
unless $width <= 0 and length $string <= $real |
|
992
|
0 |
0 |
unless $string |
|
1004
|
0 |
0 |
if ($string =~ /^\s*(?:\"?($PLAIN_PHRASE)?\"?\s*<($ADDRESS)>|
($ADDRESS)\s*(?:\(($PAREN_PHRASE)\))?)\s*$/x) { } |
|
|
0 |
0 |
elsif ($string =~ /^\s*(?:\"?($PLAIN_PHRASE)?\"?\s*<($LOCAL_PART)>|
($LOCAL_PART)\s*(?:\(($PAREN_PHRASE)\))?)\s*$/x) { } |
|
|
0 |
0 |
elsif ($string =~ /^\s*(?:(.*)\s*<($LOCAL_PART\@?$DOMAIN?)>|
($LOCAL_PART\@?$DOMAIN?)\s*(.*))\s*$/x) { } |
|
1025
|
0 |
0 |
unless ($address =~ /\@\S+$/) |
|
1034
|
0 |
0 |
if ($string =~ /^\s*(.*)\s*<(.*\@.*)>\s*$/) { } |
|
|
0 |
0 |
elsif ($string =~ /^\s*(\S+\@\S+)\s*(.*)\s*$/) { } |
|
1036
|
0 |
0 |
if ($2) |
|
1052
|
0 |
0 |
if (lc $type eq 'email') { } |
|
|
0 |
0 |
elsif (lc $type eq 'nameemail') { } |
|
|
0 |
0 |
elsif (lc $type eq 'name') { } |
|
|
0 |
0 |
elsif (lc $type eq 'emailname') { } |
|
1062
|
0 |
0 |
$3 ? : |
|
|
0 |
0 |
unless $width <= 0 and length $retstring <= $real |
|
1086
|
0 |
0 |
unless $mid |
|
1107
|
0 |
0 |
$fullhead ? : |
|
1110
|
0 |
0 |
if $value |