File Coverage

lib/Mail/AuthenticationResults/Token.pm
Criterion Covered Total %
statement 25 27 100.0
branch n/a
condition n/a
subroutine 8 9 88.8
pod 6 6 100.0
total 39 42 97.6


line stmt bran cond sub pod time code
1             package Mail::AuthenticationResults::Token;
2             # ABSTRACT: Base class for modelling AuthenticationResults Header parts
3              
4             require 5.008;
5 29     29   75224 use strict;
  29         76  
  29         844  
6 29     29   132 use warnings;
  29         60  
  29         1048  
7             our $VERSION = '2.20210914'; # VERSION
8 29     29   150 use Carp;
  29         52  
  29         8781  
9              
10              
11             sub new {
12 1189     1189 1 17505 my ( $class, $header, $args ) = @_;
13              
14 1189         2428 my $self = { 'args' => $args };
15 1189         1800 bless $self, $class;
16              
17 1189         1979 $self->{ 'header' } = $header;
18 1189         2919 $self->parse();
19              
20 1175         2213 return $self;
21             }
22              
23              
24             sub new_from_value {
25 1242     1242 1 2610 my ( $class, $value ) = @_;
26              
27 1242         2444 my $self = { 'value' => $value };
28 1242         2168 bless $self, $class;
29              
30 1242         2417 return $self;
31             }
32              
33              
34             sub value {
35 3210     3210 1 6364 my ( $self ) = @_;
36 3210         8040 return $self->{ 'value' };
37             }
38              
39              
40             sub remainder {
41 1175     1175 1 1757 my ( $self ) = @_;
42 1175         2049 return $self->{ 'header' };
43             }
44              
45              
46             sub parse {
47 1     1 1 2 my ( $self ) = @_;
48 1         28 croak 'parse not implemented';
49             }
50              
51              
52             sub is { # uncoverable subroutine
53             # a base Token cannot be instantiated, and all subclasses should implement this method.
54 0     0 1   my ( $self ) = @_; # uncoverable statement
55 0           croak 'is not implemented'; # uncoverable statement
56             }
57              
58             1;;
59              
60             __END__