Current Path : /usr/local/lib/perl5/site_perl/5.8.9/Mail/Field/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //usr/local/lib/perl5/site_perl/5.8.9/Mail/Field/Generic.pm |
# Copyrights 1995-2008 by Mark Overmeer <perl@overmeer.net>. # For other contributors see ChangeLog. # See the manual pages for details on the licensing terms. # Pod stripped from pm file by OODoc 1.05. package Mail::Field::Generic; use vars '$VERSION'; $VERSION = '2.04'; use Carp; use base 'Mail::Field'; 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;