File Coverage

blib/lib/Acme/LSD.pm

Criterion	Covered	Total	%
statement	15	26	57.6
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod			n/a
total	21	33	63.6

package Acme::LSD;
use 5.008001;
use strict;
use warnings;

our $VERSION = "0.04";

use base qw;
use Symbol qw;
my $TRUE_STDOUT;

sub TIEHANDLE { return bless geniosym, __PACKAGE__ }

sub PRINT {
    shift;
    local $\ = undef;

    foreach my $str (@_) {
        my $copy = $str;
        $copy =~ s/[^\w']/ /g;   # convert all non-words into spaces
        $copy =~ s/ +/ /g;       # convert all multiple spaces into single space
        $copy =~ tr/A-Z/a-z/;    # convert all words to lowercase
        foreach my $char (split(//, $copy)) {
            my $r = int(rand(6)) + 31;
            my $s = int(rand(8));
	    print $TRUE_STDOUT "\033[" . "$s;$r" . "m$char\033[0m";
        }
    }
}

open($TRUE_STDOUT, '>', '/dev/stdout');
tie *STDOUT, __PACKAGE__, (*STDOUT);

1;
__END__