← 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/Header/AuthServID.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMail::AuthenticationResults::Header::AuthServID::::BEGIN@10Mail::AuthenticationResults::Header::AuthServID::BEGIN@10
0000s0sMail::AuthenticationResults::Header::AuthServID::::BEGIN@5Mail::AuthenticationResults::Header::AuthServID::BEGIN@5
0000s0sMail::AuthenticationResults::Header::AuthServID::::BEGIN@6Mail::AuthenticationResults::Header::AuthServID::BEGIN@6
0000s0sMail::AuthenticationResults::Header::AuthServID::::BEGIN@8Mail::AuthenticationResults::Header::AuthServID::BEGIN@8
0000s0sMail::AuthenticationResults::Header::AuthServID::::_ALLOWED_CHILDRENMail::AuthenticationResults::Header::AuthServID::_ALLOWED_CHILDREN
0000s0sMail::AuthenticationResults::Header::AuthServID::::_HAS_CHILDRENMail::AuthenticationResults::Header::AuthServID::_HAS_CHILDREN
0000s0sMail::AuthenticationResults::Header::AuthServID::::_HAS_VALUEMail::AuthenticationResults::Header::AuthServID::_HAS_VALUE
0000s0sMail::AuthenticationResults::Header::AuthServID::::build_stringMail::AuthenticationResults::Header::AuthServID::build_string
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::Header::AuthServID;
2# ABSTRACT: Class modelling the AuthServID part of the Authentication Results Headerr
3
4require 5.008;
5use strict;
6use warnings;
7our $VERSION = '2.20210112'; # VERSION
8use Carp;
9
10use base 'Mail::AuthenticationResults::Header::Base';
11
12
13sub _HAS_VALUE{ return 1; }
14
15sub _HAS_CHILDREN{ return 1; }
16
17sub _ALLOWED_CHILDREN {
18 my ( $self, $child ) = @_;
19 return 1 if ref $child eq 'Mail::AuthenticationResults::Header::Comment';
20 return 1 if ref $child eq 'Mail::AuthenticationResults::Header::SubEntry';
21 return 1 if ref $child eq 'Mail::AuthenticationResults::Header::Version';
22 return 0;
23}
24
25sub build_string {
26 my ( $self, $header ) = @_;
27
28 $header->string( $self->stringify( $self->value() ) );
29 foreach my $child ( @{ $self->children() } ) {
30 $header->space( ' ' );
31 #$header->concat( $child->as_string_prefix() );
32 $child->build_string( $header );
33 }
34
35 return;
36}
37
381;
39
40__END__