← 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/Canonicalization/nowsp.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMail::DKIM::Canonicalization::nowsp::::BEGIN@13Mail::DKIM::Canonicalization::nowsp::BEGIN@13
0000s0sMail::DKIM::Canonicalization::nowsp::::BEGIN@14Mail::DKIM::Canonicalization::nowsp::BEGIN@14
0000s0sMail::DKIM::Canonicalization::nowsp::::BEGIN@2Mail::DKIM::Canonicalization::nowsp::BEGIN@2
0000s0sMail::DKIM::Canonicalization::nowsp::::BEGIN@3Mail::DKIM::Canonicalization::nowsp::BEGIN@3
0000s0sMail::DKIM::Canonicalization::nowsp::::canonicalize_bodyMail::DKIM::Canonicalization::nowsp::canonicalize_body
0000s0sMail::DKIM::Canonicalization::nowsp::::canonicalize_headerMail::DKIM::Canonicalization::nowsp::canonicalize_header
0000s0sMail::DKIM::Canonicalization::nowsp::::finish_bodyMail::DKIM::Canonicalization::nowsp::finish_body
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::Canonicalization::nowsp;
2use strict;
3use warnings;
4our $VERSION = '1.20200907'; # VERSION
5# ABSTRACT: nowsp canonicalization
6
7# Copyright 2005 Messiah College. All rights reserved.
8# Jason Long <jlong@messiah.edu>
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::Canonicalization::DkimCommon';
14use Carp;
15
16sub canonicalize_header {
17 my $self = shift;
18 croak 'wrong number of parameters' unless ( @_ == 1 );
19 my ($line) = @_;
20
21 # remove all whitespace
22 $line =~ s/[ \t\015\012]//g;
23
24 if ( $line =~ /^([^:]+):(.*)$/ ) {
25
26 # lowercase field name
27 $line = lc($1) . ":$2";
28 }
29
30 return $line;
31}
32
33sub canonicalize_body {
34 my $self = shift;
35 my ($multiline) = @_;
36
37 $multiline =~ s/[ \t\015\012]//g;
38 return $multiline;
39}
40
41sub finish_body {
42 my $self = shift;
43 $self->SUPER::finish_body;
44}
45
461;
47
48__END__