← 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/MIME/Field/ContDisp.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sMIME::Field::ContDisp::::BEGIN@44MIME::Field::ContDisp::BEGIN@44
0000s0sMIME::Field::ContDisp::::BEGIN@45MIME::Field::ContDisp::BEGIN@45
0000s0sMIME::Field::ContDisp::::BEGIN@46MIME::Field::ContDisp::BEGIN@46
0000s0sMIME::Field::ContDisp::::filenameMIME::Field::ContDisp::filename
0000s0sMIME::Field::ContDisp::::typeMIME::Field::ContDisp::type
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package MIME::Field::ContDisp;
2
3
4=head1 NAME
5
6MIME::Field::ContDisp - a "Content-disposition" field
7
8
9=head1 DESCRIPTION
10
11A subclass of Mail::Field.
12
13I<Don't use this class directly... its name may change in the future!>
14Instead, ask Mail::Field for new instances based on the field name!
15
16
17=head1 SYNOPSIS
18
19 use Mail::Field;
20 use MIME::Head;
21
22 # Create an instance from some text:
23 $field = Mail::Field->new('Content-disposition', $text);
24
25 # Inline or attachment?
26 $type = $field->type;
27
28 # Recommended filename?
29 $filename = $field->filename;
30
31=head1 SEE ALSO
32
33L<MIME::Field::ParamVal>, L<Mail::Field>
34
35=head1 AUTHOR
36
37Eryq (F<eryq@zeegee.com>), ZeeGee Software Inc (F<http://www.zeegee.com>).
38Dianne Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
39
40
41=cut
42
43require 5.001;
44use strict;
45use MIME::Field::ParamVal;
46use vars qw($VERSION @ISA);
47
48@ISA = qw(MIME::Field::ParamVal);
49
50# The package version, both in 1.23 style *and* usable by MakeMaker:
51$VERSION = "5.509";
52
53# Install it:
54bless([])->register('Content-disposition');
55
56#------------------------------
57
58sub filename {
59 shift->paramstr('filename', @_);
60}
61
62sub type {
63 shift->paramstr('_', @_);
64}
65
66#------------------------------
671;
68