il::AuthenticationResults::Token::Separator;
use Mail::AuthenticationResults::Token::String;
use JSON;
sub new {
my ( $class, $auth_header ) = @_;
my $self = {};
bless $self, $class;
self->parsed();
}
sub from_authentication_results_json {
my ( $self, $json ) = @_;
my $j = JSON->new();
my $hashref = $j->decode( $json );
return $self->_from_hashref( $hashref );
}
er and return the parsed object.
=head2 from_authentication_results_json( $json )
Parse $json as the json returned from an as_json method call and return the parsed object.
=head2 tokenise( $header;
use warnings;
our $VERSION = '2.20250709'; # VERSION
use Scalar::Util qw{ weaken refaddr };
use JSON;
use Carp;
use Clone qw{ clone };
use Mail::AuthenticationResults::Header::Group;
use Mail::Auth $hashref->{'children'} = \@children;
}
return $hashref;
}
sub as_json {
my ( $self ) = @_;
my $J = JSON->new();
$J->canonical();
return $J->encode( $self->_as_hashref() );
bject when calledas a child
of another objects as_string method call.
=head2 as_json()
Return this instance as a JSON serialised string
=head2 as_string()
Returns this instance as a string.
=head