Mail::Abuse::Reader - Reads a Mail::Abuse::Report

Mail-Abuse documentation Contained in the Mail-Abuse distribution.

Index

Code Index:

NAME

Top

Mail::Abuse::Reader - Reads a Mail::Abuse::Report

SYNOPSIS

Top

  package Mail::Abuse::Reader::MyReader;
  use Mail::Abuse::Reader;

  use base 'Mail::Abuse::Reader';
  sub read { ... }
  package main;

  use Mail::Abuse::Report;
  my $r = new Mail::Abuse::Reader::MyReader;
  my $report = new Mail::Abuse::Report (reader => $r);

DESCRIPTION

Top

This class implements the reception of an abuse report and its conversion to a Mail::Abuse::Report object.

The following functions are provided for the customization of the behavior of the class.

read($report)

Populates the text of the given $report using the ->text method. Must return true if succesful or false otherwise.

EXPORT

None by default.

HISTORY

Top

0.01

Original version; created by h2xs 1.2 with options

  -ACOXcfkn
	Mail::Abuse
	-v
	0.01

LICENSE AND WARRANTY

Top

This code and all accompanying software comes with NO WARRANTY. You use it at your own risk.

This code and all accompanying software can be used freely under the same terms as Perl itself.

AUTHOR

Top

Luis E. Muņoz <luismunoz@cpan.org>

SEE ALSO

Top

perl(1).

Mail-Abuse documentation Contained in the Mail-Abuse distribution. 
package Mail::Abuse::Reader;

require 5.005_62;

use Carp;
use strict;
use warnings;

				# The code below should be in a single line

our $VERSION = do { my @r = (q$Revision: 1.5 $ =~ /\d+/g); sprintf " %d."."%03d" x $#r, @r };


sub new
{
    my $type	= shift;
    my $class	= ref($type) || $type;

    croak "Invalid call to Mail::Abuse::Reader::new"
	unless $class;

    bless {}, $class;
}


sub read
{
    croak "Mail::Abuse::Reader is a virtual class";
}

				# This AUTOLOAD magic provides automatic
				# accessors

sub AUTOLOAD 
{
    no strict "refs";
    use vars qw($AUTOLOAD);
    my $method = $AUTOLOAD;
    $method =~ s/^.*:://;
    *$method = sub 
    { 
	my $self = shift;
	my $ret = $self->{$method};
	if (@_)
	{
	    $ret = $self->{$method};
	    $self->{$method} = shift;
	}
	return $ret;
    };
    goto \&$method;
}


__END__