NAME
       Acme::Test::Pr0n - Perl extension for wasting your time

SYNOPSIS
         use Test::More tests => 3;
         use Acme::Test::Pr0n;

         my $filename = '/any/old/text/file.txt';

         my $pr0n_test = Acme::Test::Pr0n->new({
             'filename' => $filename,
         });

         ok($pr0n_test->pr0n() > 5,
                    'The string pr0n is hidden in the file more than 5 times');

         ok($pr0n_test->XXX() > 4,
                    'The string XXX is hidden in the file more than 4 times');

         ok($pr0n_test->XXX('i') > 4,
                    'The string XXX is hidden in the file more than 4 times
                     without beinge case sensative');


DESCRIPTION
       This test object has bveen inspired by Schwern and
       advanced testing, a conversation on IRC and a reference to
       Schwern and pr0n.  Having written it I realise it's not
       very pr0n specific but I'm sure it will be abused prop-
       perly.

       Any thing can be tested for, just make up the method name
       and pass in a 'i' if you want it case insensative.

EXPORTED

       None by default.

AUTHOR
       Leo Lapworth <lt>llap@cuckoo.org<gt>