| line |
true |
false |
branch |
|
104
|
1 |
186 |
if (@_)
|
|
106
|
0 |
1 |
if (@_ % 2)
|
|
113
|
0 |
3 |
if (defined $_[$i] and $_[$i] eq "debug")
|
|
118
|
0 |
3 |
unless $self->push_header($_[$i], $_[$i + 1])
|
|
122
|
0 |
187 |
unless $self->SUPER::init
|
|
134
|
1 |
67 |
@_ ? :
|
|
135
|
0 |
68 |
@_ ? :
|
|
136
|
2 |
0 |
if ($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'})
|
|
175
|
1 |
0 |
@_ ? :
|
|
209
|
0 |
0 |
if (@_)
|
|
212
|
0 |
0 |
if ref $val
|
|
223
|
3 |
0 |
if (@_)
|
|
229
|
1 |
2 |
if ($cid =~ /[\x00-\x1F\x7F]/)
|
|
243
|
7 |
50 |
if (@_)
|
|
246
|
1 |
6 |
unless (exists $valid_encoding{$enc})
|
|
260
|
1 |
1 |
if (@_)
|
|
263
|
0 |
1 |
if ref $val
|
|
275
|
2 |
0 |
scalar @_ ? :
|
|
277
|
0 |
2 |
if scalar @_ and ref $_[-1] eq "HASH"
|
|
280
|
0 |
2 |
if (@_ == 0)
|
|
282
|
0 |
0 |
if ($has_args)
|
|
292
|
2 |
0 |
if (defined $v and not ref $v)
|
|
295
|
1 |
1 |
if ($v =~ /^[[:blank:]]*-?\d+[[:blank:]]*$/) { }
|
|
|
0 |
1 |
elsif ($opts->{'strict'}) { }
|
|
311
|
0 |
0 |
unless $self->_validate_date_value($v)
|
|
327
|
0 |
57 |
if (@_ != 1)
|
|
336
|
10 |
47 |
defined $v ? :
|
|
344
|
0 |
172 |
if (@_ != 1)
|
|
363
|
0 |
333 |
if (@_ == 0)
|
|
369
|
285 |
48 |
if (@_ == 1)
|
|
376
|
127 |
158 |
unless (@vals)
|
|
381
|
2 |
156 |
wantarray ? :
|
|
385
|
0 |
48 |
if (@_ % 2)
|
|
401
|
48 |
0 |
unless ($cleared{$lkey}++)
|
|
434
|
0 |
0 |
unless ($seen{$lkey}++)
|
|
442
|
0 |
0 |
wantarray ? :
|
|
449
|
0 |
376 |
if (@_ % 2)
|
|
463
|
60 |
316 |
if @existing
|
|
465
|
0 |
316 |
unless $self->push_header($cname, $val)
|
|
488
|
45 |
0 |
scalar @_ ? :
|
|
490
|
45 |
0 |
if scalar @_ and ref $_[-1] eq "HASH"
|
|
494
|
45 |
0 |
if ($opts->{'generate'})
|
|
497
|
0 |
45 |
if (not defined $domain or $domain eq "")
|
|
500
|
0 |
0 |
unless $self->_load_class("Sys::Hostname")
|
|
512
|
0 |
45 |
if (not defined $domain or index($domain, ".") == -1 or not $domain =~ /$fqdn_re/)
|
|
531
|
0 |
0 |
if (@_ == 0)
|
|
533
|
0 |
0 |
if ($has_args)
|
|
543
|
0 |
0 |
unless (defined $v)
|
|
550
|
0 |
0 |
if (ref $v)
|
|
552
|
0 |
0 |
unless ($self->_can_overload($v, "\"\""))
|
|
559
|
0 |
0 |
if ($opts->{'strict'})
|
|
561
|
0 |
0 |
unless $self->_validate_message_id_value($v)
|
|
580
|
0 |
3 |
unless $self->_load_class($class)
|
|
581
|
2 |
1 |
if (defined $value and CORE::length $value)
|
|
593
|
0 |
0 |
@_ ? :
|
|
594
|
0 |
0 |
unless $fh->print($self->as_string(@_))
|
|
596
|
0 |
0 |
unless $fh->print($eol)
|
|
605
|
0 |
338 |
if (@_ % 2)
|
|
642
|
0 |
13 |
if (@_ == 0)
|
|
656
|
5 |
9 |
if @vals
|
|
660
|
4 |
9 |
if scalar @removed_all
|
|
662
|
3 |
9 |
scalar @removed_all ? :
|
|
|
1 |
12 |
wantarray ? :
|
|
675
|
0 |
381 |
if (@_ == 0)
|
|
680
|
0 |
381 |
if (@_ % 2)
|
|
697
|
379 |
0 |
unless ($cleared{$lkey}++)
|
|
703
|
0 |
379 |
unless defined $val
|
|
721
|
175 |
0 |
if not CORE::length $self->{'_reset'} and scalar @_
|
|
731
|
0 |
53 |
if (ref $cb ne "CODE")
|
|
758
|
2 |
1497 |
unless $self->_validate_field_name($name)
|
|
768
|
0 |
765 |
unless (defined $val and CORE::length $val)
|
|
774
|
2 |
763 |
if (ref $val eq 'ARRAY') { }
|
|
803
|
0 |
1836 |
unless defined $canon
|
|
804
|
1782 |
54 |
if $canon
|
|
816
|
0 |
339 |
unless ($max =~ /^\d+$/)
|
|
822
|
333 |
6 |
if (CORE::length $line <= $max)
|
|
836
|
9 |
0 |
$pos_sp > $pos_tab ? :
|
|
838
|
9 |
0 |
if ($pos > 0)
|
|
857
|
0 |
1 |
unless (defined $epoch)
|
|
863
|
0 |
1 |
unless ($epoch =~ /^\d{1,10}$/)
|
|
898
|
0 |
45 |
unless (defined $domain and $domain =~ /\A[A-Za-z0-9](?:[A-Za-z0-9\-\.]*[A-Za-z0-9])?\z/ and $domain =~ /\./)
|
|
915
|
1782 |
54 |
if exists $header_fields_canonical->{$name_lc}
|
|
928
|
1038 |
12 |
exists $header_fields_order->{$k} ? :
|
|
936
|
45 |
0 |
if ($self->_load_class("Data::UUID"))
|
|
942
|
0 |
45 |
unless $self->_load_class("MIME::Base64")
|
|
955
|
0 |
0 |
unless defined $MSGID_SEQ
|
|
978
|
0 |
767 |
unless defined $v
|
|
981
|
0 |
767 |
if (ref $v)
|
|
983
|
0 |
0 |
unless ($self->_can_overload($v, "\"\""))
|
|
1014
|
0 |
2 |
unless (scalar @_ >= 7)
|
|
1025
|
0 |
14 |
unless ($self->_is_number($args[$i]))
|
|
1043
|
2 |
0 |
if ($m <= 2)
|
|
1071
|
0 |
1 |
unless defined $lsec
|
|
1073
|
0 |
1 |
unless defined $gsec
|
|
1078
|
0 |
1 |
if ($delta < 0)
|
|
1096
|
0 |
0 |
unless ($v =~ /\A[\x20-\x7E]*\z/)
|
|
1130
|
0 |
0 |
unless ($v =~ /$re/)
|
|
1143
|
2 |
1497 |
unless ($name =~ /^[\x21-\x39\x3B-\x7E]+$/)
|
|
1155
|
0 |
0 |
unless ($v =~ /\A[\x21-\x7E]+\z/)
|
|
1161
|
0 |
0 |
unless ($v =~ /\A<([^<>]+)>\z/)
|
|
1169
|
0 |
0 |
unless ($inner =~ /\A([^\@]+)\@([^\@]+)\z/)
|
|
1178
|
0 |
0 |
unless ($local =~ m[\A[A-Za-z0-9.!#\$%&'\*\+/=\?\^_`\{\|\}~\-]+\z])
|
|
1184
|
0 |
0 |
unless ($domain =~ /\A[A-Za-z0-9](?:[A-Za-z0-9\-\.]*[A-Za-z0-9])?\z/ and $domain =~ /\./)
|