Server IP : 85.214.239.14 / Your IP : 18.219.247.59 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /proc/2/cwd/usr/share/perl5/Mail/AuthenticationResults/ |
Upload File : |
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__ =pod =encoding UTF-8 =head1 NAME Mail::AuthenticationResults::Token - Base class for modelling AuthenticationResults Header parts =head1 VERSION version 2.20230112 =head1 DESCRIPTION Classes representing a tokenised Authentication Results Header, used in parsing =head1 METHODS =head2 new( $header, $args ) Return a new Token object parsed from the given $header string using $args $args value depend on the subclass of Token used, possible types are L<Mail::AuthenticationResults::Token::Assignment> an assignment operator L<Mail::AuthenticationResults::Token::Comment> a comment L<Mail::AuthenticationResults::Token::QuotedString> a quoted string L<Mail::AuthenticationResults::Token::Separator> a separator L<Mail::AuthenticationResults::Token::String> a string =head2 new_from_value( $value ) Create a new token from the given value =head2 value() Return the value of the current Token instance. =head2 remainder() Return the remainder of the header string after parsing the current token out. =head2 parse() Run the parser on the current $header and set up value() and remainder(). =head2 is() Return the type of token we are. =head1 AUTHOR Marc Bradshaw <marc@marcbradshaw.net> =head1 COPYRIGHT AND LICENSE This software is copyright (c) 2021 by Marc Bradshaw. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. =cut