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!
=head1 NAME
HTTPD::ADS::AbuseNotify - E-mail a notice to the abuse contact for a given IP address.
=head1 SYNOPSIS
use HTTPD::ADS::AbuseNotify
blah blah blah
=head1 DESCRIPTION
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.
=head1 USAGE
=head1 BUGS
=head1 SUPPORT
=head1 AUTHOR
Dana Hudes
CPAN ID: DHUDES
dhudes@hudes.org
http://www.hudes.org
=head1 COPYRIGHT
This program is free software licensed under the...
The General Public License (GPL)
Version 2, June 1991
The full text of the license can be found in the
LICENSE file included with this module.
=head1 SEE ALSO
perl(1).
=cut
############################################# main pod documentation end ##
################################################ subroutine header begin ##
=head2 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 :
=cut
################################################## 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__