view release on metacpan or  search on metacpan

Build.PL  view on Meta::CPAN

use strict;
use warnings;
use Module::Build;

my $builder = Module::Build->new (
    module_name         => 'Acme::Tie::Eleet',
    dist_author         => 'Jerome Quelin <jquelin@cpan.org>',
    license             => 'perl',
    dist_version_from   => 'lib/Acme/Tie/Eleet.pm',
    add_to_cleanup => [ 'Acme-Tie-Eleet-*',
                        map { ( '*/' x $_ ) . '*~' } 0..4 ],
    script_files   => [ ],
    build_requires => {
        'Test::More'    => 0,
        'perl'          => '5.006',
    },
    requires       => {
        'perl'          => '5.006',
    },
    recommends     => {
        'Test::Pod'           => 0,

Makefile.PL  view on Meta::CPAN

    AUTHOR              => 'Jerome Quelin <jquelin@cpan.org>',
    VERSION_FROM        => 'lib/Acme/Tie/Eleet.pm',
    ABSTRACT_FROM       => 'lib/Acme/Tie/Eleet.pm',
    LICENSE             => 'perl',
    PREREQ_PM => {
        'Test::More'    => 0,
    },
    dist  => { COMPRESS => 'gzip -9f', SUFFIX => 'gz', },
    clean => { FILES => [
                'Acme-Tie-Eleet-*',
                map { ( '*/' x $_ ) . '*~' } 0..4
                ] },
);

lib/Acme/Tie/Eleet.pm  view on Meta::CPAN

    if ( rand(100) < $self->{extra_sent} ) {
	return $sentences[rand( @sentences ) ];
    }
    return undef;
}

# Transform o to 0, l to 1, etc. That's 31337!
sub _apply_letters {
    my ($self, $target) = @_;

    return join "", map { rand(100) < $self->{letters} && exists $letter{$_} ?
			      ( ref($letter{$_}) eq ref([]) ) ?
				  $letter{$_}[rand( @{$letter{$_}} ) ] :
				      $letter{$_}
			  : $_ } split //, $target;
}

# Put extra space between chars.
sub _apply_spacer {
    my ($self, $target) = @_;