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 31     31   572 use strict;
  31         57  
  31         1166  
6 31     31   2356 use warnings;
  31         55  
  31         2358  
7             our $VERSION = '2.20260216'; # VERSION
8 31     31   237 use Carp;
  31         68  
  31         2185  
9              
10 31     31   225 use base 'Mail::AuthenticationResults::Token';
  31         143  
  31         7968  
11              
12              
13             sub is {
14 1389     1389 1 2223 my ( $self ) = @_;
15 1389         4662 return 'space';
16             }
17              
18             sub new {
19 1     1 1 8126 my ($self) = @_;
20 1         23 croak 'Space tokens are not used in parsing';
21             }
22              
23             sub parse {
24 1     1 1 80 my ($self) = @_;
25 1         25 croak 'Space tokens are not used in parsing';
26             }
27              
28             sub remainder {
29 1     1 1 43 my ($self) = @_;
30 1         13 croak 'Space tokens are not used in parsing';
31             }
32              
33              
34             1;
35              
36             __END__