The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Text::Pipe::RandomCase - Text::Pipe filter to randomize character case

SYNOPSIS

   use Text::Pipe qw(PIPE);
   print PIPE('RandomCase')->filter('foobar');
   print PIPE('RandomCase', probability => 2 )->filter('foobar');

DESCRIPTION

This module provides a pipe segment for Text::Pipe to randomly uppercase the characters of a string. All of the described methods can also be used as paramters to its constructor.

METHODS

probability($arg)

Determines the frequency of upper case characters. Any 1/$arg'th character will be uppercased on average. Defaults to undef, in which case this module will return strings with a probability of 1/4 for any character to be uppercased.

force_one($bool)

If given a true value - in the Perl sense, i.e. anything except undef, 0 or the empty string, any string will have at least one uppercased character in a random position. If no argument is given, it returns the slot's value. Default to false.

DEPENDENCIES

Text::Pipe

VERSION

0.01

AUTHOR

Mario Domgoergen <mdom@cpan.org>

BUGS

Please report any bugs or feature requests to bug-text-pipe-randomcase at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Text-Pipe-RandomCase. 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::Pipe::RandomCase

You can also look for information at:

LICENSE AND COPYRIGHT

Copyright 2008-2009 Mario Domgoergen.

This program is free software; you can redistribute it and/or modify it under the terms the GNU General Public License as published by the Free Software Foundation; either version 1, or (at your option) any later version.