NAME

WWW::Mechanize::SpamCop - SpamCop reporting automation.

SYNOPSIS

    use WWW::Mechanize::SpamCop;
    $s = WWW::Mechanize::SpamCop->new(
        login    => 'login@spamcop.net',
        passwd => 'passwd'
    );
    $s->report_one;
    $s->report_all;

ABSTRACT

WWW::Mechanize::SpamCop is used to automate spam reporting on spamcop.net's web site.

DESCRIPTION

new

Create a new WWW::Mechanize::SpamCop object

The required arguments are login and passwd, you can also pass it a host, defaulting to 'www.spamcop.net:80' (the :80 is needed because of the authentication), a realm, defaulting to 'your SpamCop account' which is the domain's realm for autentication. and a report default to 'Report Now', which is the name of the link on the web page.

report_one

Report one spam

returns :

undef: no spam was found
1: if a spam was reported
2: if the spam was too old

report_all

Report all waiting spams

If called in a scalar context, returns the number of spam reported. If in an array context, returns an array containing the number of reported spams and the number of old spams (not reported).

remove_unreported

Removes all unreported spams. Returns the number of removed spams as scalar value.

AUTHOR

Mathieu Arnold, <mat@cpan.org> new maintainer: Aleksander Adamowski, <cpan@olo.org.pl>

COPYRIGHT AND LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

POD ERRORS

Hey! The above document had some coding errors, which are explained below:

Around line 113:: Expected text after =item, not a number
Around line 117:: Expected text after =item, not a number