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   570 use strict;
  29         52  
  29         903  
6 29     29   160 use warnings;
  29         52  
  29         1121  
7             our $VERSION = '2.20210914'; # VERSION
8 29     29   156 use Carp;
  29         49  
  29         1573  
9              
10 29     29   165 use base 'Mail::AuthenticationResults::Token';
  29         102  
  29         7000  
11              
12              
13             sub is {
14 1089     1089 1 1433 my ( $self ) = @_;
15 1089         2790 return 'space';
16             }
17              
18             sub new {
19 1     1 1 2768 my ($self) = @_;
20 1         9 croak 'Space tokens are not used in parsing';
21             }
22              
23             sub parse {
24 1     1 1 32 my ($self) = @_;
25 1         10 croak 'Space tokens are not used in parsing';
26             }
27              
28             sub remainder {
29 1     1 1 34 my ($self) = @_;
30 1         10 croak 'Space tokens are not used in parsing';
31             }
32              
33              
34             1;
35              
36             __END__