← 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:15 2021

Filename/usr/local/lib/perl5/site_perl/Mail/DKIM/Canonicalization/dk_nofws.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMail::DKIM::Canonicalization::dk_nofws::::BEGIN@13Mail::DKIM::Canonicalization::dk_nofws::BEGIN@13
0000s0sMail::DKIM::Canonicalization::dk_nofws::::BEGIN@14Mail::DKIM::Canonicalization::dk_nofws::BEGIN@14
0000s0sMail::DKIM::Canonicalization::dk_nofws::::BEGIN@2Mail::DKIM::Canonicalization::dk_nofws::BEGIN@2
0000s0sMail::DKIM::Canonicalization::dk_nofws::::BEGIN@3Mail::DKIM::Canonicalization::dk_nofws::BEGIN@3
0000s0sMail::DKIM::Canonicalization::dk_nofws::::canonicalize_bodyMail::DKIM::Canonicalization::dk_nofws::canonicalize_body
0000s0sMail::DKIM::Canonicalization::dk_nofws::::canonicalize_headerMail::DKIM::Canonicalization::dk_nofws::canonicalize_header
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::dk_nofws;
2use strict;
3use warnings;
4our $VERSION = '1.20200907'; # VERSION
5# ABSTRACT: nofws canonicalization
6
7# Copyright 2005-2006 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::dk_simple';
14use Carp;
15
16sub canonicalize_header {
17 my $self = shift;
18 my ($line) = @_;
19
20 $line =~ s/[ \t\015\012]//g;
21 return $self->SUPER::canonicalize_header( $line . "\015\012" );
22}
23
24sub canonicalize_body {
25 my $self = shift;
26 my ($multiline) = @_;
27
28 $multiline =~ s/[ \t]//g;
29 $multiline =~ s/\015(?!\012)//g; # standalone CR
30 $multiline =~ s/([^\015])\012/$1/g; # standalone LF
31 return $self->SUPER::canonicalize_body($multiline);
32}
33
341;
35
36__END__