MDOM / Text-Pipe-RandomCase-0.03 / lib / Text / Pipe / RandomCase.pm 
package Text::Pipe::RandomCase;

use strict;
use warnings;
use parent 'Text::Pipe::Base';

our $VERSION = '0.03';

__PACKAGE__->mk_scalar_accessors(qw(probability));
__PACKAGE__->mk_boolean_accessors(qw(force_one));

sub filter_single {
    my ( $self, $input ) = @_;
    my $prob = $self->probability || 4;
    $input =~ s/(.)/int rand $prob ? $1 : uc $1 /ge;
    if ( $self->force_one and $input !~ /[[:upper:]]/ ) {
        my $pos = int( rand( length -1 ) );
        substr( $input, $pos, 1, uc( substr( $input, $pos, 1 ) ) );
    }
    return $input;
}

1;

__END__

=head1 NAME

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

=head1 SYNOPSIS

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

=head1 DESCRIPTION

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

=head1 METHODS

=head2 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.

=head2 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.

=head1 DEPENDENCIES

L<Text::Pipe>

=head1 VERSION

0.01

=head1 AUTHOR

Mario Domgoergen <mdom@cpan.org>

=head1 BUGS

Please report any bugs or feature requests to C<bug-text-pipe-randomcase
at rt.cpan.org>, or through the web interface at
L<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.

=head1 SUPPORT

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

    perldoc Text::Pipe::RandomCase

You can also look for information at:

=over 4

=item * RT: CPAN's request tracker

L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=Text-Pipe-RandomCase>

=item * AnnoCPAN: Annotated CPAN documentation

L<http://annocpan.org/dist/Text-Pipe-RandomCase>

=item * CPAN Ratings

L<http://cpanratings.perl.org/d/Text-Pipe-RandomCase>

=item * Search CPAN

L<http://search.cpan.org/dist/Text-Pipe-RandomCase>

=back

=head1 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.