Acme::CorpusScrambler - An Acme way doing Lorem Ipsum.

Acme-CorpusScrambler documentation Contained in the Acme-CorpusScrambler distribution.

Index

Code Index:

NAME

Top

Acme::CorpusScrambler - An Acme way doing Lorem Ipsum.

VERSION

Top

version 0.04

SYNOPSIS

Top

    use Acme::CorpusScrambler;

    my $foo = Acme::CorpusScrambler->new();
    my $text = $foo->scramble;

FUNCTIONS

Top

new

Object constructor, no parameters required.

feed( $keyword => $corpus )

Feeds the $corpus to object, indexed by $keyword. The corpus is used latter as scrambling material.

scramble( @keyword )

Generate a piece of lipsum text accroding to @keyword. If you didn't feed any corpus before with feed() method, it will use Text::Greeking::zh_TW's default corpus.

AUTHOR

Top

Kang-min Liu <gugod at gugod.org>

shelling <navyblueshellingford at gmail.com>

BUGS

Top

Please report any bugs or feature requests to shelling at cpan.org or gugod at gugod.org

SUPPORT

Top

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

    perldoc Acme::CorpusScrambler

You can also look for information at:

* AnnoCPAN: Annotated CPAN documentation

http://annocpan.org/dist/Acme-CorpusScrambler

* CPAN Ratings

http://cpanratings.perl.org/d/Acme-CorpusScrambler

* RT: CPAN's request tracker

http://rt.cpan.org/NoAuth/Bugs.html?Dist=Acme-CorpusScrambler

* Search CPAN

http://search.cpan.org/dist/Acme-CorpusScrambler

COPYRIGHT & LICENSE

Top

Copyright @ 2007-2008 Kang-min Liu, shelling, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

Acme-CorpusScrambler documentation Contained in the Acme-CorpusScrambler distribution. 
package Acme::CorpusScrambler;

use warnings;
use strict;

use Text::Greeking::zh_TW;


our $VERSION = '0.04';


sub new {
    my $class = shift;
    bless {}, $class;
}


my %corpushash;
sub feed {
    my ($self, $keyword, $corpus) = @_;
    $corpushash{"$keyword"}="$corpus";
    $self;
}


sub scramble {
    my ($self, @keyword) = @_;

    my $g = Text::Greeking::zh_TW->new;
    $g->paragraphs(3,15);
    $g->sentences(2,10);

    if (@keyword) {
        my $newcorpus = join("\n\n", @corpushash{ grep { exists $corpushash{$_} } @keyword });
        if ($newcorpus) {
            $g->add_source($newcorpus);
            return $g->generate;
        }
        return ""
    }else {
        return $g->generate;
    }
}


1;