Condition Coverage

lib/Mail/Make/Headers.pm
Criterion Covered Total %
condition 49 114 42.9


and 2 conditions

line l !l condition
721 1026 175 not CORE::length $self->{'_reset'} and scalar @_

and 3 conditions

line !l l&&!r l&&r condition
113 0 3 0 defined $_[$i] and $_[$i] eq "debug"
136 66 0 2 $self->{'_cache_value'} and $self->{'_cache_value'}[0] eq $eol
66 0 2 $self->{'_cache_value'} and $self->{'_cache_value'}[0] eq $eol and $self->{'_cache_value'}[1] == $max
0 0 2 $self->{'_cache_value'} and $self->{'_cache_value'}[0] eq $eol and $self->{'_cache_value'}[1] == $max and $self->{'_cache_value'}[2]
0 0 2 $self->{'_cache_value'} and $self->{'_cache_value'}[0] eq $eol and $self->{'_cache_value'}[1] == $max and $self->{'_cache_value'}[2] and not CORE::length $self->{'_reset'}
277 0 2 0 scalar @_ and ref $_[-1] eq "HASH"
292 0 0 2 defined $v and not ref $v
490 0 0 45 scalar @_ and ref $_[-1] eq "HASH"
581 1 0 2 defined $value and CORE::length $value
768 0 0 765 defined $val and CORE::length $val
898 0 0 45 defined $domain and $domain =~ /\A[A-Za-z0-9](?:[A-Za-z0-9\-\.]*[A-Za-z0-9])?\z/
0 0 45 defined $domain and $domain =~ /\A[A-Za-z0-9](?:[A-Za-z0-9\-\.]*[A-Za-z0-9])?\z/ and $domain =~ /\./
1184 0 0 0 $domain =~ /\A[A-Za-z0-9](?:[A-Za-z0-9\-\.]*[A-Za-z0-9])?\z/ and $domain =~ /\./

or 2 conditions

line l !l condition
301 1 0 $self->_format_rfc5322_date($epoch) || (return $self->pass_error)
332 57 0 $self->_canon_name($_[0]) || (return $self->pass_error)
372 285 0 $self->_canon_name($name) || (return $self->pass_error)
396 48 0 $self->_canon_name($name) || (return $self->pass_error)
407 48 0 $self->_coerce_values($val) || (return $self->pass_error)
436 0 0 $self->_display_name($k) || (return $self->pass_error)
459 376 0 $self->_canon_name($name) || (return $self->pass_error)
522 45 0 $self->_generate_message_id($domain) || (return $self->pass_error)
576 3 0 shift @_ || (return $self->error('No field name provided.'))
578 3 0 $self->_normalise_name($name) || (return $self->pass_error)
579 3 0 $Mail::Make::Headers::SUPPORTED->{$key} || 'Mail::Make::Headers::Generic'
615 338 0 $self->_canon_name($name) || (return $self->pass_error)
619 338 0 $self->_coerce_values($val) || (return $self->pass_error)
652 14 0 $self->_canon_name($name) || (return $self->pass_error)
691 379 2 $self->_canon_name($name) || (return $self->pass_error)
706 379 0 $self->_coerce_values($val) || (return $self->pass_error)
728 53 0 shift @_ || (return $self->error('No callback was provided.'))
755 1499 0 shift @_ || (return $self->error('No header name was provided.'))
778 4 0 $self->_sanitize_value($val->[$i]) || (return $self->pass_error)
785 763 0 $self->_sanitize_value($val) || (return $self->pass_error)
796 1836 0 shift @_ || (return $self->error('No header name was provided.'))
814 339 0 $max ||= 78
865 0 0 $epoch // "undef"
903 45 0 $self->_message_id_left_part || (return $self->pass_error)
912 1836 0 shift @_ || (return $self->error('No header name was provided.'))
922 1050 0 shift @_ || (return $self->error('No header name was provided.'))
966 3 0 shift @_ || (return $self->error('No header name was provided to normalise.'))
1027 0 0 $args[$i] // "undef"
1140 1499 0 shift @_ || (return $self->error('No field name was provided to check.'))

or 3 conditions

line l !l&&r !l&&!r condition
497 0 0 45 not defined $domain or $domain eq ""
512 0 0 45 not defined $domain or index($domain, ".") == -1
0 0 45 not defined $domain or index($domain, ".") == -1 or not $domain =~ /$fqdn_re/
583 2 0 0 $class->new($value) || $self->pass_error($class->error)
585 1 0 0 $class->new || $self->pass_error($class->error)