← 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/DKIM/ARC/Seal.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMail::DKIM::ARC::Seal::::BEGIN@13Mail::DKIM::ARC::Seal::BEGIN@13
0000s0sMail::DKIM::ARC::Seal::::BEGIN@2Mail::DKIM::ARC::Seal::BEGIN@2
0000s0sMail::DKIM::ARC::Seal::::BEGIN@3Mail::DKIM::ARC::Seal::BEGIN@3
0000s0sMail::DKIM::ARC::Seal::::DEFAULT_PREFIXMail::DKIM::ARC::Seal::DEFAULT_PREFIX
0000s0sMail::DKIM::ARC::Seal::::body_hashMail::DKIM::ARC::Seal::body_hash
0000s0sMail::DKIM::ARC::Seal::::canonicalizationMail::DKIM::ARC::Seal::canonicalization
0000s0sMail::DKIM::ARC::Seal::::chainMail::DKIM::ARC::Seal::chain
0000s0sMail::DKIM::ARC::Seal::::newMail::DKIM::ARC::Seal::new
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Mail::DKIM::ARC::Seal;
2use strict;
3use warnings;
4our $VERSION = '1.20200907'; # VERSION
5# ABSTRACT: represents a ARC-Seal header
6
7# Copyright 2017 FastMail Pty Ltd. All Rights Reserved.
8# Bron Gondwana <brong@fastmailteam.com>
9#
10# This program is free software; you can redistribute it and/or
11# modify it under the same terms as Perl itself.
12
13use base 'Mail::DKIM::ARC::MessageSignature';
14
15
16sub new {
17 my $class = shift;
18 my %prms = @_;
19 my $self = {};
20 bless $self, $class;
21
22 $self->instance( $prms{'Instance'} ) if exists $prms{'Instance'};
23 $self->algorithm( $prms{'Algorithm'} || 'rsa-sha256' );
24 $self->signature( $prms{'Signature'} );
25 $self->canonicalization( $prms{'Method'} ) if exists $prms{'Method'};
26 $self->chain( $prms{'Chain'} || 'none' );
27 $self->domain( $prms{'Domain'} );
28 $self->selector( $prms{'Selector'} );
29 $self->timestamp(
30 defined $prms{'Timestamp'} ? $prms{'Timestamp'} : time() );
31 $self->expiration( $prms{'Expiration'} ) if defined $prms{'Expiration'};
32 $self->key( $prms{'Key'} ) if defined $prms{'Key'};
33
34 return $self;
35}
36
37sub body_hash {
38
39 # Not defined for ARC-Seal
40 return;
41}
42
43sub DEFAULT_PREFIX {
44 return 'ARC-Seal:';
45}
46
47
48sub chain {
49 my $self = shift;
50 if (@_) {
51 my $cv = shift;
52 die "INVALID chain value $cv"
53 unless grep { $cv eq $_ } qw(none fail pass);
54 $self->set_tag( 'cv', $cv );
55 }
56 return $self->get_tag('cv');
57}
58
59
60sub canonicalization {
61 return ( 'seal', 'seal' );
62}
63
64
651;
66
67__END__