File Coverage

lib/Mail/AuthenticationResults/Header/Entry.pm
Criterion Covered Total %
statement 23 23 100.0
branch 6 6 100.0
condition n/a
subroutine 9 9 100.0
pod n/a
total 38 38 100.0


line stmt bran cond sub pod time code
1             package Mail::AuthenticationResults::Header::Entry;
2             # ABSTRACT: Class modelling Main Entry parts of the Authentication Results Header
3              
4             require 5.008;
5 27     27   1810 use strict;
  27         56  
  27         796  
6 27     27   131 use warnings;
  27         49  
  27         1103  
7             our $VERSION = '2.20210914'; # VERSION
8 27     27   152 use Scalar::Util qw{ refaddr };
  27         86  
  27         1234  
9 27     27   162 use Carp;
  27         51  
  27         1500  
10              
11 27     27   179 use base 'Mail::AuthenticationResults::Header::Base';
  27         61  
  27         6274  
12              
13              
14 696     696   2028 sub _HAS_KEY{ return 1; }
15 668     668   3600 sub _HAS_VALUE{ return 1; }
16 990     990   1960 sub _HAS_CHILDREN{ return 1; }
17              
18             sub _ALLOWED_CHILDREN {
19 406     406   611 my ( $self, $child ) = @_;
20 406 100       909 return 1 if ref $child eq 'Mail::AuthenticationResults::Header::Comment';
21 308 100       839 return 1 if ref $child eq 'Mail::AuthenticationResults::Header::SubEntry';
22 13 100       36 return 1 if ref $child eq 'Mail::AuthenticationResults::Header::Version';
23 6         61 return 0;
24             }
25              
26             1;
27              
28             __END__