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

perl

Sex.pm

Acme::Test::Pr0n