App-SpamcupNG

 view release on metacpan or  search on metacpan

lib/App/SpamcupNG/Error/Bounce.pm  view on Meta::CPAN

Creates a new instance.

Expects as parameter an array reference containing the bounce error message.

A instance of this class is always considered as fatal.

=cut

sub new {
    my ( $class, $message_ref ) = @_;
    return $class->SUPER::new( $message_ref, 1 );
}

=head2 message

Overrided from the parent class, adding required behavior.

=cut

sub message {
    my $self = shift;

lib/App/SpamcupNG/Error/LoginFailed.pm  view on Meta::CPAN

Creates a new instance.

Expects as parameter an array reference containing the bounce error message.

A instance of this class is always considered as fatal.

=cut

sub new {
    my ( $class, $message_ref ) = @_;
    return $class->SUPER::new( $message_ref, 1 );
}

=head2 message

Overrided from the parent class, adding required behavior.

=cut

sub message {
    my $self = shift;

lib/App/SpamcupNG/Error/Mailhost.pm  view on Meta::CPAN

index is a string of the message.

=cut

sub new {
    my ( $class, $message_ref ) = @_;
    confess 'message must be an array reference with size = 3'
      unless ( ( ref($message_ref) eq 'ARRAY' )
        and ( scalar( @{$message_ref} ) == 3 ) );

    return $class->SUPER::new($message_ref);
}

=head2 message

Overrided from superclass, with required additional parsing.

=cut

sub message {
    my $self = shift;

lib/App/SpamcupNG/Warning/Yum.pm  view on Meta::CPAN

=head1 METHODS

=head2 new

Overrided from parent class.

=cut

sub new {
    my ( $class, $messages_ref ) = @_;
    my $self = $class->SUPER::new( [ $messages_ref->[0] ] );
    return $self;
}

=head2 message

Overrided from parent class.

=cut

sub message {