File Coverage

blib/lib/MIME/Field/ConTraEnc.pm
Criterion Covered Total %
statement 9 10 90.0
branch n/a
condition n/a
subroutine 3 4 75.0
pod 0 1 0.0
total 12 15 80.0


line stmt bran cond sub pod time code
1             package MIME::Field::ConTraEnc;
2              
3              
4             =head1 NAME
5              
6             MIME::Field::ConTraEnc - a "Content-transfer-encoding" 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-transfer-encoding', '7bit');
24              
25             # Get the encoding.
26             # Possible values: 'binary', '7bit', '8bit', 'quoted-printable',
27             # 'base64' and '' (unspecified). Note that there can't be a
28             # single default for this, since it depends on the content type!
29             $encoding = $field->encoding;
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             =cut
41              
42             require 5.001;
43 20     20   68 use strict;
  20         26  
  20         453  
44 20     20   62 use MIME::Field::ParamVal;
  20         23  
  20         356  
45 20     20   9083 use vars qw($VERSION @ISA);
  20         43  
  20         1626  
46              
47             @ISA = qw(MIME::Field::ParamVal);
48              
49             # The package version, both in 1.23 style *and* usable by MakeMaker:
50             $VERSION = "5.508";
51              
52             # Install it:
53             bless([])->register('Content-transfer-encoding');
54              
55             #------------------------------
56              
57             sub encoding {
58 0     0 0   shift->paramstr('_', @_);
59             }
60              
61             #------------------------------
62             1;
63