The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
 / 
Text-Filter-Froggy-0.0.0
River stage zero No dependents
++
/ Text::Filter::Froggy

NAME

Text::Filter::Froggy - the frog goes rabbit rabbit rabbit

VERSION

Version 0.0.0

SYNOPSIS

    use Text::Filter::Froggy;

    my $froggy = Text::Filter::Froggy->new();

    #read standard in and process it
    my @lines=<STDIN>;
    print $froggy->process(join('', @lines));

This takes a chunk of text and filters it. It will remove all new lines, camas, semicolons, colons, single quotes, and double quotes. Once it does it will search through the words and choose some random words and replace them using a random selection from Aiksaurus.

In regards to the Aiksaurus part, it ignores 'the', 'them', 'who', 'was', 'when', 'that', 'this', 'we', 'want', and 'what'.

METHODS

new

This initiates it.

args hash

hi

This is the is the random chance that will replace the text with "hi\n". The default value is 5 and values between 0 and 100 are accepted.

minL

This is the minimum length for a word to be replaced. The default is 5.

maxL

This is the max length for a word to be replaced. The default is 20.

replaceP

This is the percentage that any of the words fitting in the length restriction will be replaced. The default is 50.

maxR

This is the maximum number of words of words that will be replaced.

wrap

If this is defined, it should bethe number of columns to wrap the text to.

    #initiates it a a replaceP value of 30
    my $froggy=Text::Filter::Froggy->new({replaceP=>30})

process

This processes a chunk of text.

    my $text=$froggy->process($text);
    if($froggy->{error}){
        print "Error!\n";
    }

errorblank

This blanks the error storage and is only meant for internal usage.

It does the following.

    $self->{error}=undef;
    $self->{errorString}="";

ERROR CODES

1

AUTHOR

Zane C. Bowers, <vvelox at vvelox.net>

BUGS

Please report any bugs or feature requests to bug-text-filter-froggy at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Text-Filter-Froggy. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

    perldoc Text::Filter::Froggy

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2009 Zane C. Bowers, all rights reserved.

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