← 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/Entry.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMail::AuthenticationResults::Header::Entry::::BEGIN@11Mail::AuthenticationResults::Header::Entry::BEGIN@11
0000s0sMail::AuthenticationResults::Header::Entry::::BEGIN@5Mail::AuthenticationResults::Header::Entry::BEGIN@5
0000s0sMail::AuthenticationResults::Header::Entry::::BEGIN@6Mail::AuthenticationResults::Header::Entry::BEGIN@6
0000s0sMail::AuthenticationResults::Header::Entry::::BEGIN@8Mail::AuthenticationResults::Header::Entry::BEGIN@8
0000s0sMail::AuthenticationResults::Header::Entry::::BEGIN@9Mail::AuthenticationResults::Header::Entry::BEGIN@9
0000s0sMail::AuthenticationResults::Header::Entry::::_ALLOWED_CHILDRENMail::AuthenticationResults::Header::Entry::_ALLOWED_CHILDREN
0000s0sMail::AuthenticationResults::Header::Entry::::_HAS_CHILDRENMail::AuthenticationResults::Header::Entry::_HAS_CHILDREN
0000s0sMail::AuthenticationResults::Header::Entry::::_HAS_KEYMail::AuthenticationResults::Header::Entry::_HAS_KEY
0000s0sMail::AuthenticationResults::Header::Entry::::_HAS_VALUEMail::AuthenticationResults::Header::Entry::_HAS_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::Header::Entry;
2# ABSTRACT: Class modelling Main Entry parts of the Authentication Results Header
3
4require 5.008;
5use strict;
6use warnings;
7our $VERSION = '2.20210112'; # VERSION
8use Scalar::Util qw{ refaddr };
9use Carp;
10
11use base 'Mail::AuthenticationResults::Header::Base';
12
13
14sub _HAS_KEY{ return 1; }
15sub _HAS_VALUE{ return 1; }
16sub _HAS_CHILDREN{ return 1; }
17
18sub _ALLOWED_CHILDREN {
19 my ( $self, $child ) = @_;
20 return 1 if ref $child eq 'Mail::AuthenticationResults::Header::Comment';
21 return 1 if ref $child eq 'Mail::AuthenticationResults::Header::SubEntry';
22 return 1 if ref $child eq 'Mail::AuthenticationResults::Header::Version';
23 return 0;
24}
25
261;
27
28__END__