view release on metacpan or  search on metacpan

lib/Acme/Tanasinn.pm  view on Meta::CPAN

package Acme::Tanasinn;

use warnings;
use strict;

use 5.008;


=encoding utf-8

=head1 NAME

Acme::Tanasinn - Don't think. Feel and you'll be tanasinn.

=head1 VERSION

Version 0.02

=cut

our $VERSION = '0.02';

=head1 SYNOPSIS

    use Acme::Tanasinn;

    my $tanasinn = "Don't think. Feel.\n";
    print tanasinn($tanasinn);

=cut

BEGIN
{
	use base 'Exporter';
	our @EXPORT = ('tanasinn');
}

=head1 METHODS

=head2 tanasinn()

    tanasinn() will do everything. Leave everything to tanasinn. Tanasinn exports tanasinn.

=cut

sub tanasinn
{

	my $string = shift;
	
	my @replace_range = 1..3;

	my $pos  = 0;
	my $step = '';

	while(1)
	{
		return $string if $pos >= length($string);

		my $count = $replace_range[rand(@replace_range)];

		for(1..$count)
		{
			$step .= "\x{2235}";
		}
			
		substr($string,	$pos, length($step), $step);

		$pos += length($step) + $replace_range[rand(@replace_range)];