Branch Coverage

blib/lib/Net/Gnats/PR.pm
Criterion Covered Total %
branch 76 92 82.6


line true false branch
56 19 0 unless %options
76 0 0 if defined $self->{'fields'}
155 142 105 unless (_is_header_field($field->name))
169 188 118 if defined $self->{'fields'}{$fieldname}
185 0 0 if $field =~ qr/^$fieldname/
210 0 5 unless defined $self->get_field($name)
211 0 5 unless $self->setField($name, $value, $reason_value)
215 3 2 if ($f->schema->requires_change_reason)
241 29 23 unless defined $self->get_field($name)
244 6 17 if ($f->schema->requires_change_reason)
245 1 5 unless defined $reason_value
283 1 2 if defined $self->get_field('Number') and not defined $force
288 0 2 if $command->is_ok == 0
292 1 1 if ($self->get_field('Number')) { }
328 0 0 if $person
370 96 114 if (_is_header_line($line))
377 32 82 unless (defined $found[0])
386 1 81 if ($schema_found == 0)
414 0 220 unless (defined $line)
423 31 346 if $line =~ /^${\'From';}:/
424 31 315 if $line =~ /^${\'Reply-To';}:/
425 31 284 if $line =~ /^${\'To';}:/
426 31 253 if $line =~ /^${\'Cc';}:/
427 31 222 if $line =~ /^${\'Subject';}:/
428 31 191 if $line =~ /^${\'X-Send-Pr-Version';}:/
429 0 191 if $line =~ /^${\'X-GNATS-Notify';}:/
435 15 232 if $name eq 'From'
436 15 217 if $name eq 'Reply-To'
437 15 202 if $name eq 'To'
438 15 187 if $name eq 'Cc'
439 15 172 if $name eq 'Subject'
440 15 157 if $name eq 'X-Send-Pr-Version'
441 15 142 if $name eq 'X-GNATS-Notify'
447 15 152 if $line =~ /^${\'From';}:/
480 24 196 if $line eq '' or $line eq '.'
483 0 196 if not defined $name and $content eq ''
485 15 181 if (defined $name and _is_first_line($name . ':'))
489 90 106 if (defined $name and _is_header_line($name . ':'))
498 77 29 if (defined $name) { }
511 0 15 unless defined $pr->get_field('Reply-To')->value
515 15 0 unless (defined $pr->get_field('X-GNATS-Notify'))
521 11 4 unless ($pr->get_field($UNFORMATTED_FIELD))
529 13 2 if scalar @attachments == 0
604 7 61 if ($fn eq 'Unformatted')
608 14 47 if ($field->schema->type eq 'MultiText') { }
620 0 61 if ($pr->get_field($field->name . '-Changed-Why'))