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

Filename/usr/local/lib/perl5/site_perl/Mail/Field/Generic.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMail::Field::Generic::::BEGIN@10Mail::Field::Generic::BEGIN@10
0000s0sMail::Field::Generic::::BEGIN@13Mail::Field::Generic::BEGIN@13
0000s0sMail::Field::Generic::::BEGIN@15Mail::Field::Generic::BEGIN@15
0000s0sMail::Field::Generic::::createMail::Field::Generic::create
0000s0sMail::Field::Generic::::parseMail::Field::Generic::parse
0000s0sMail::Field::Generic::::stringifyMail::Field::Generic::stringify
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1# Copyrights 1995-2019 by [Mark Overmeer <markov@cpan.org>].
2# For other contributors see ChangeLog.
3# See the manual pages for details on the licensing terms.
4# Pod stripped from pm file by OODoc 2.02.
5# This code is part of the bundle MailTools. Meta-POD processed with
6# OODoc into POD and HTML manual-pages. See README.md for Copyright.
7# Licensed under the same terms as Perl itself.
8
9package Mail::Field::Generic;
10use vars '$VERSION';
11$VERSION = '2.21';
12
13use base 'Mail::Field';
14
15use Carp;
16
17
18sub create
19{ my ($self, %arg) = @_;
20 $self->{Text} = delete $arg{Text};
21
22 croak "Unknown options " . join(",", keys %arg)
23 if %arg;
24
25 $self;
26}
27
28
29sub parse
30{ my $self = shift;
31 $self->{Text} = shift || "";
32 $self;
33}
34
35sub stringify { shift->{Text} }
36
371;