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 30     30   596 use strict;
  30         54  
  30         876  
6 30     30   155 use warnings;
  30         75  
  30         1159  
7             our $VERSION = '2.20230112'; # VERSION
8 30     30   155 use Carp;
  30         60  
  30         1585  
9              
10 30     30   181 use base 'Mail::AuthenticationResults::Token';
  30         63  
  30         6689  
11              
12              
13             sub is {
14 1209     1209 1 1587 my ( $self ) = @_;
15 1209         3081 return 'space';
16             }
17              
18             sub new {
19 1     1 1 2911 my ($self) = @_;
20 1         10 croak 'Space tokens are not used in parsing';
21             }
22              
23             sub parse {
24 1     1 1 38 my ($self) = @_;
25 1         9 croak 'Space tokens are not used in parsing';
26             }
27              
28             sub remainder {
29 1     1 1 36 my ($self) = @_;
30 1         9 croak 'Space tokens are not used in parsing';
31             }
32              
33              
34             1;
35              
36             __END__