File Coverage

blib/lib/Mail/Field/Generic.pm
Criterion Covered Total %
statement 9 17 52.9
branch 0 2 0.0
condition 0 2 0.0
subroutine 3 6 50.0
pod 3 3 100.0
total 15 30 50.0


line stmt bran cond sub pod time code
1             # Copyrights 1995-2019 by [Mark Overmeer ].
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              
9             package Mail::Field::Generic;
10 1     1   7 use vars '$VERSION';
  1         1  
  1         51  
11             $VERSION = '2.21';
12              
13 1     1   16 use base 'Mail::Field';
  1         2  
  1         103  
14              
15 1     1   7 use Carp;
  1         3  
  1         201  
16              
17              
18             sub create
19 0     0 1   { my ($self, %arg) = @_;
20 0           $self->{Text} = delete $arg{Text};
21              
22 0 0         croak "Unknown options " . join(",", keys %arg)
23             if %arg;
24              
25 0           $self;
26             }
27              
28              
29             sub parse
30 0     0 1   { my $self = shift;
31 0   0       $self->{Text} = shift || "";
32 0           $self;
33             }
34              
35 0     0 1   sub stringify { shift->{Text} }
36              
37             1;