⚝
One Hat Cyber Team
⚝
Your IP:
172.22.0.1
Server IP:
151.80.20.34
Server:
Linux 794f04d97d5e 5.15.0-143-generic #153-Ubuntu SMP Fri Jun 13 19:10:45 UTC 2025 x86_64
Server Software:
Apache/2.4.62 (Debian)
PHP Version:
8.2.28
Buat File
|
Buat Folder
Eksekusi
Dir :
~
/
usr
/
share
/
perl5
/
Mail
/
Field
/
Edit File: Generic.pm
# 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;
Simpan