script/news | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 13 | 20 | 65.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
257 | 0 | 2 | 12 | $_ = shift @$article and /\S/u |
line | l | !l | condition |
---|---|---|---|
261 | 2 | 0 | &decode('MIME-Header', scalar $headers->header('subject')) || '?' |
262 | 2 | 0 | no_email(&decode('MIME-Header', scalar $headers->header('from'))) || 'Anonymous' |
267 | 2 | 0 | &decode('MIME-Header', scalar $headers->header('newsgroups')) || '' |
269 | 0 | 2 | &decode('MIME-Header', scalar $headers->header('references')) || '' |
288 | 1 | 1 | cached("$group list ", sub { |
289 | 1 | 1 | &first(sub { |
290 | 1 | 1 | $cached_article->{'replies'} || [] |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
268 | 2 | 0 | 0 | $group ||= join($", @$newsgroups) |