Edit file File name : Dummy.pm Content :# Copyrights 2001-2020 by [Mark Overmeer]. # 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 distribution Mail-Box. Meta-POD processed with # OODoc into POD and HTML manual-pages. See README.md # Copyright Mark Overmeer. Licensed under the same terms as Perl itself. package Mail::Message::Dummy; use vars '$VERSION'; $VERSION = '3.009'; use base 'Mail::Message'; use strict; use warnings; use Carp; sub init($) { my ($self, $args) = @_; @$args{ qw/modified trusted/ } = (0, 1); $self->SUPER::init($args); $self->log(ERROR => "Message-Id is required for a dummy.") unless exists $args->{messageId}; $self; } #------------------------------------------- sub isDummy() { 1 } sub head() { shift->log(ERROR => "You cannot take the head of a dummy message"); (); } sub body() { shift->log(ERROR => "You cannot take the body of a dummy message"); (); } 1; Save