File Coverage

lib/Mail/AuthenticationResults/Token/Space.pm
Criterion Covered Total %
statement 20 20 100.0
branch n/a
condition n/a
subroutine 8 8 100.0
pod 4 4 100.0
total 32 32 100.0


line stmt bran cond sub pod time code
1             package Mail::AuthenticationResults::Token::Space;
2             # ABSTRACT: Class for modelling AuthenticationResults Header parts detected as spaces
3              
4             require 5.008;
5 29     29   539 use strict;
  29         49  
  29         846  
6 29     29   141 use warnings;
  29         69  
  29         1058  
7             our $VERSION = '2.20210915'; # VERSION
8 29     29   148 use Carp;
  29         46  
  29         1501  
9              
10 29     29   206 use base 'Mail::AuthenticationResults::Token';
  29         97  
  29         6343  
11              
12              
13             sub is {
14 1089     1089 1 1452 my ( $self ) = @_;
15 1089         2866 return 'space';
16             }
17              
18             sub new {
19 1     1 1 3035 my ($self) = @_;
20 1         10 croak 'Space tokens are not used in parsing';
21             }
22              
23             sub parse {
24 1     1 1 32 my ($self) = @_;
25 1         9 croak 'Space tokens are not used in parsing';
26             }
27              
28             sub remainder {
29 1     1 1 32 my ($self) = @_;
30 1         9 croak 'Space tokens are not used in parsing';
31             }
32              
33              
34             1;
35              
36             __END__