38 lines
778 B
Perl
38 lines
778 B
Perl
# Copyrights 1995-2019 by [Mark Overmeer <markov@cpan.org>].
|
|
# For other contributors see ChangeLog.
|
|
# See the manual pages for details on the licensing terms.
|
|
# Pod stripped from pm file by OODoc 2.02.
|
|
# This code is part of the bundle MailTools. Meta-POD processed with
|
|
# OODoc into POD and HTML manual-pages. See README.md for Copyright.
|
|
# Licensed under the same terms as Perl itself.
|
|
|
|
package Mail::Field::Generic;
|
|
use vars '$VERSION';
|
|
$VERSION = '2.21';
|
|
|
|
use base 'Mail::Field';
|
|
|
|
use Carp;
|
|
|
|
|
|
sub create
|
|
{ my ($self, %arg) = @_;
|
|
$self->{Text} = delete $arg{Text};
|
|
|
|
croak "Unknown options " . join(",", keys %arg)
|
|
if %arg;
|
|
|
|
$self;
|
|
}
|
|
|
|
|
|
sub parse
|
|
{ my $self = shift;
|
|
$self->{Text} = shift || "";
|
|
$self;
|
|
}
|
|
|
|
sub stringify { shift->{Text} }
|
|
|
|
1;
|