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

package Mail::AuthenticationResults::Token;
# ABSTRACT: Base class for modelling AuthenticationResults Header parts

require 5.008;
use strict;
use warnings;
our $VERSION = '2.20230112'; # VERSION
use Carp;


sub new {
    my ( $class, $header, $args ) = @_;

    my $self = { 'args' => $args };
    bless $self, $class;

    $self->{ 'header' } = $header;
    $self->parse();

    return $self;
}


sub new_from_value {
    my ( $class, $value ) = @_;

    my $self = { 'value' => $value };
    bless $self, $class;

    return $self;
}


sub value {
    my ( $self ) = @_;
    return $self->{ 'value' };
}


sub remainder {
    my ( $self ) = @_;
    return $self->{ 'header' };
}


sub parse {
    my ( $self ) = @_;
    croak 'parse not implemented';
}


sub is { # uncoverable subroutine
    # a base Token cannot be instantiated, and all subclasses should implement this method.
    my ( $self ) = @_; # uncoverable statement
    croak 'is not implemented'; # uncoverable statement
}

1;;

__END__