| HTTPD-ADS documentation | Contained in the HTTPD-ADS distribution. |
HTTPD::ADS::AbuseNotify - E-mail a notice to the abuse contact for a given IP address.
use HTTPD::ADS::AbuseNotify blah blah blah
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.
Dana Hudes CPAN ID: DHUDES dhudes@hudes.org http://www.hudes.org
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.
perl(1).
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__