← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:14 2021

Filename/usr/local/lib/perl5/site_perl/Mail/AuthenticationResults/Token.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMail::AuthenticationResults::Token::::BEGIN@5Mail::AuthenticationResults::Token::BEGIN@5
0000s0sMail::AuthenticationResults::Token::::BEGIN@6Mail::AuthenticationResults::Token::BEGIN@6
0000s0sMail::AuthenticationResults::Token::::BEGIN@8Mail::AuthenticationResults::Token::BEGIN@8
0000s0sMail::AuthenticationResults::Token::::isMail::AuthenticationResults::Token::is
0000s0sMail::AuthenticationResults::Token::::newMail::AuthenticationResults::Token::new
0000s0sMail::AuthenticationResults::Token::::new_from_valueMail::AuthenticationResults::Token::new_from_value
0000s0sMail::AuthenticationResults::Token::::parseMail::AuthenticationResults::Token::parse
0000s0sMail::AuthenticationResults::Token::::remainderMail::AuthenticationResults::Token::remainder
0000s0sMail::AuthenticationResults::Token::::valueMail::AuthenticationResults::Token::value
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Mail::AuthenticationResults::Token;
2# ABSTRACT: Base class for modelling AuthenticationResults Header parts
3
4require 5.008;
5use strict;
6use warnings;
7our $VERSION = '2.20210112'; # VERSION
8use Carp;
9
10
11sub new {
12 my ( $class, $header, $args ) = @_;
13
14 my $self = { 'args' => $args };
15 bless $self, $class;
16
17 $self->{ 'header' } = $header;
18 $self->parse();
19
20 return $self;
21}
22
23
24sub new_from_value {
25 my ( $class, $value ) = @_;
26
27 my $self = { 'value' => $value };
28 bless $self, $class;
29
30 return $self;
31}
32
33
34sub value {
35 my ( $self ) = @_;
36 return $self->{ 'value' };
37}
38
39
40sub remainder {
41 my ( $self ) = @_;
42 return $self->{ 'header' };
43}
44
45
46sub parse {
47 my ( $self ) = @_;
48 croak 'parse not implemented';
49}
50
51
52sub is { # uncoverable subroutine
53 # a base Token cannot be instantiated, and all subclasses should implement this method.
54 my ( $self ) = @_; # uncoverable statement
55 croak 'is not implemented'; # uncoverable statement
56}
57
581;;
59
60__END__