HTTPD::ADS::AbuseNotify - E-mail a notice to the abuse contact for a given IP address.


HTTPD-ADS documentation Contained in the HTTPD-ADS distribution.

Index


Code Index:

NAME

Top

HTTPD::ADS::AbuseNotify - E-mail a notice to the abuse contact for a given IP address.

SYNOPSIS

Top

  use HTTPD::ADS::AbuseNotify
  blah blah blah




DESCRIPTION

Top

Stub documentation for this module was created by ExtUtils::ModuleMaker. It looks like the author of the extension was negligent enough to leave the stub unedited.

Blah blah blah.

USAGE

Top

BUGS

Top

SUPPORT

Top

AUTHOR

Top

	Dana Hudes
	CPAN ID: DHUDES
	dhudes@hudes.org
	http://www.hudes.org

COPYRIGHT

Top

SEE ALSO

Top

perl(1).

sample_function

 Usage     : How to use this function/method
 Purpose   : What it does
 Returns   : What it returns
 Argument  : What it wants to know
 Throws    : Exceptions and other anomolies
 Comments  : This is a sample subroutine header.
           : It is polite to include more pod and fewer comments.

See Also :


HTTPD-ADS documentation Contained in the HTTPD-ADS distribution.
package HTTPD::ADS::AbuseNotify;
use strict;

BEGIN {
	use Exporter ();
	use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
	$VERSION     = 0.1;
	@ISA         = qw (Exporter);
	#Give a hoot don't pollute, do not export more than needed by default
	@EXPORT      = qw ();
	@EXPORT_OK   = qw ();
	%EXPORT_TAGS = ();
}


########################################### main pod documentation begin ##
# Below is the stub of documentation for your module. You better edit it!


############################################# main pod documentation end ##


################################################ subroutine header begin ##

################################################## subroutine header end ##


sub new
{
	my ($class, %parameters) = @_;

	my $self = bless ({}, ref ($class) || $class);

	return ($self);
}


1; #this line is important and will help the module return a true value
__END__