NAME
Acme::Pr0n::Automate - All your pr0n are belongs to us
SYNOPSIS
PARENTAL ADVISORY - EXPLICIT CODE ------------------------------------
use Acme::Pr0n::Automate qw(:categories);
my $naughty = Acme::Pr0n::Automate->new(
sources => [qw(Free6 Easypic)],
categories => [BABES, LINGERIE, REDHEADS, PANTIES],
db => "naughty_db",
);
$naughty->fetch();
my $quality_stuff = $naughty->search(
from => time - 86400,
categories => [BABES, REDHEADS]
);
$quality_stuff->output(file => "naughty_db/today.html");DESCRIPTION
Acme::Pr0n::Automates automates your pr0n desires
METHODS (Acme::Pr0n::Automate)
The database object
Acme::Pr0n::Automate->new( %ARGS )
The new constructor takes the following named arguments:
sources - An arrayref of sources to retrive from
categories - An arrayref of categories we are interested of
db - The path where to store the database files
On sucess, it will return a new Acme::Pr0n::Automate object which can later be used for fetching and searching. If something goes wrong, such as a missing argument it will die with an error.
$obj->fetch( )
Fetch links from the sources given to the object when it was constructed.
$obj->search( %ARGS )
Search the database for items. Pass the following arguments to control the search:
from - Get only items fetched after this timestamp
categories - An arrayref of categories to search
Returns a new Acme::Pr0n::Automate::View object that contains the search results.
METHODS (Acme::Pr0n::Automate::View);
The search-result writer
$res->output(file => "output.html");
Writes the output of $res which is an Acme::Pr0n::Automate::View instance to the file "output.html". The method uses the extension to determine what output filter it should use. Only HTML is supported in this version.
EXPORTS
Nothing by default
:categories
Import constans for supported categories.
A backend might not support all categories, so don't be suprised if you are missing a requested category. See CATEGORIES.txt for a list of categories.
Always use the category constants where they are expected, do NOT use a string because this can and will probablly not do what you want.
AUTHOR
The pimp daddy <claesjac at cpan.org>
DEDICATED TO
This spot is open for volunteers
SEE ALSO
COPYRIGHT AND LICENCE
Acme::Pr0n::Automate is distributed under the same licens as Perl itself.
Copyright (C) 2002-2003 Claes Jacobsson