| line |
true |
false |
branch |
|
36
|
4 |
341 |
unless $self->_HAS_KEY |
|
37
|
2 |
339 |
unless defined $key |
|
38
|
2 |
337 |
if $key eq '' |
|
39
|
2 |
335 |
if $key =~ /"/ |
|
40
|
2 |
333 |
if $key =~ /\n/ |
|
41
|
2 |
331 |
if $key =~ /\r/ |
|
49
|
6 |
1077 |
unless $self->_HAS_KEY |
|
50
|
4 |
1073 |
unless defined $self->{'key'} |
|
58
|
3 |
15 |
unless defined $value |
|
80
|
4 |
341 |
unless $self->_HAS_VALUE |
|
81
|
3 |
338 |
unless defined $value |
|
83
|
3 |
335 |
if $value =~ /"/ |
|
84
|
3 |
332 |
if $value =~ /\n/ |
|
85
|
3 |
329 |
if $value =~ /\r/ |
|
93
|
1 |
1397 |
unless $self->_HAS_VALUE |
|
94
|
53 |
1344 |
unless defined $self->{'value'} |
|
102
|
7 |
444 |
unless defined $string |
|
104
|
34 |
417 |
if ($string =~ /[\s\t \(\);=]/) |
|
114
|
2 |
3000 |
unless $self->_HAS_CHILDREN |
|
115
|
1833 |
1167 |
unless defined $self->{'children'} |
|
122
|
8 |
11 |
unless exists $self->{'parent'} |
|
132
|
1 |
0 |
if exists $entry->{'parent'} |
|
140
|
340 |
340 |
if ref $parent eq 'Mail::AuthenticationResults::Header::Group' |
|
141
|
4 |
336 |
if exists $self->{'parent'} |
|
142
|
0 |
336 |
unless $parent->_ALLOWED_CHILDREN($self) |
|
158
|
0 |
16 |
unless $self->_HAS_CHILDREN |
|
159
|
0 |
16 |
unless $self->_ALLOWED_CHILDREN($child) |
|
160
|
0 |
16 |
if &refaddr($self) == &refaddr($child) |
|
166
|
16 |
23 |
if (&refaddr($child) == &refaddr($mychild)) { } |
|
167
|
10 |
6 |
if (ref $self ne 'Mail::AuthenticationResults::Header::Group') |
|
178
|
0 |
16 |
unless $child_removed |
|
188
|
29 |
725 |
unless $self->_HAS_CHILDREN |
|
189
|
25 |
700 |
unless $self->_ALLOWED_CHILDREN($child) |
|
190
|
0 |
700 |
if &refaddr($self) == &refaddr($child) |
|
222
|
230 |
0 |
if ($eldest->can('indent_by')) |
|
227
|
230 |
0 |
if ($eldest->can('eol')) |
|
233
|
230 |
0 |
if ($eldest->can('indent_on')) |
|
234
|
81 |
149 |
if ($eldest->indent_on(ref $self)) |
|
240
|
149 |
81 |
unless $added |
|
252
|
16 |
7 |
if $self->_HAS_KEY |
|
253
|
23 |
0 |
if $self->_HAS_VALUE |
|
254
|
17 |
6 |
if ($self->_HAS_CHILDREN) |
|
281
|
2 |
211 |
unless ($self->key) |
|
286
|
191 |
20 |
if ($self->value) { } |
|
|
2 |
18 |
elsif ($self->value eq '0') { } |
|
|
18 |
0 |
elsif ($self->value eq '') { } |
|
296
|
16 |
2 |
if ($self->key ne 'none') |
|
301
|
211 |
0 |
if ($self->_HAS_CHILDREN) |
|
319
|
746 |
423 |
if (exists $search->{'key'}) |
|
320
|
542 |
204 |
if ($self->_HAS_KEY) { } |
|
321
|
1 |
541 |
if (ref $search->{'key'} eq 'Regexp' and $self->key =~ /$search->{'key'}/) { } |
|
|
78 |
463 |
elsif (lc $search->{'key'} eq lc $self->key) { } |
|
338
|
671 |
498 |
if (exists $search->{'value'}) |
|
339
|
0 |
671 |
unless defined $search->{'value'} |
|
340
|
652 |
19 |
if ($self->_HAS_VALUE) { } |
|
341
|
1 |
651 |
if (ref $search->{'value'} eq 'Regexp' and $self->value =~ /$search->{'value'}/) { } |
|
|
153 |
498 |
elsif (lc $search->{'value'} eq lc $self->value) { } |
|
357
|
87 |
1082 |
if (exists $search->{'authserv_id'}) |
|
358
|
82 |
5 |
if ($self->_HAS_VALUE) { } |
|
359
|
16 |
66 |
if (lc ref $self eq 'mail::authenticationresults::header') { } |
|
361
|
2 |
14 |
if (ref $search->{'authserv_id'} eq 'Regexp' and $authserv_id =~ /$search->{'authserv_id'}/) { } |
|
|
3 |
11 |
elsif (lc $search->{'authserv_id'} eq lc $authserv_id) { } |
|
381
|
389 |
780 |
if (exists $search->{'isa'}) |
|
382
|
111 |
278 |
if (lc ref $self eq 'mail::authenticationresults::header::' . lc($search->{'isa'})) { } |
|
|
5 |
273 |
elsif (lc ref $self eq 'mail::authenticationresults::header' and lc $search->{'isa'} eq 'header') { } |
|
393
|
33 |
1136 |
if (exists $search->{'has'}) |
|
395
|
23 |
15 |
if scalar @{$self->search($query)->children;} == 0 |
|
399
|
158 |
1011 |
if ($match) |
|
403
|
953 |
216 |
if ($self->_HAS_CHILDREN) |
|
406
|
187 |
835 |
if (scalar @{$childfound->children;}) |