File Coverage

blib/lib/MIME/Field/ContDisp.pm
Criterion Covered Total %
statement 11 11 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 0 2 0.0
total 16 18 88.8


line stmt bran cond sub pod time code
1             package MIME::Field::ContDisp;
2              
3              
4             =head1 NAME
5              
6             MIME::Field::ContDisp - a "Content-disposition" field
7              
8              
9             =head1 DESCRIPTION
10              
11             A subclass of Mail::Field.
12              
13             I
14             Instead, 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              
33             L, L
34              
35             =head1 AUTHOR
36              
37             Eryq (F), ZeeGee Software Inc (F).
38             Dianne Skoll (dfs@roaringpenguin.com) http://www.roaringpenguin.com
39              
40              
41             =cut
42              
43             require 5.001;
44 20     20   87 use strict;
  20         35  
  20         430  
45 20     20   87 use MIME::Field::ParamVal;
  20         32  
  20         145  
46 20     20   11776 use vars qw($VERSION @ISA);
  20         35  
  20         2287  
47              
48             @ISA = qw(MIME::Field::ParamVal);
49              
50             # The package version, both in 1.23 style *and* usable by MakeMaker:
51             $VERSION = "5.507";
52              
53             # Install it:
54             bless([])->register('Content-disposition');
55              
56             #------------------------------
57              
58             sub filename {
59 17     17 0 44 shift->paramstr('filename', @_);
60             }
61              
62             sub type {
63 24     24 0 84 shift->paramstr('_', @_);
64             }
65              
66             #------------------------------
67             1;
68