The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

Text::Lorem::JA - Japanese Lorem Ipsum generator

SYNOPSIS

    use Text::Lorem::JA;
    
    # Generated text are represented in Perl internal format (Unicode).
    binmode \*STDOUT, ':encoding(UTF-8)';
    
    my $lorem = Text::Lorem::JA->new();
    
    # Generate a string of text with 10 characters.
    print $lorem->word(10), "\n";
    # => 好きな強みとを考えて
    
    # Generate a string of text with 10 tokens.
    print $lorem->words(10), "\n";
    # => 主要な素質にしばしばあるまいまではっきりつかまえる
    
    # Generate a string of text with 3 sentences.
    # Invoking via class methods are also allowed.
    print Text::Lorem::JA->sentences(3), "\n";
    # => いちばん面白いいい方をはっきりさせない会社があっても、
    #    やがてかわって、許されない。人物の生きている、ほこり、
    #    品位のあらわれである。文明社会は、正しくそういう立場に
    #    いながら、求めて一塊の岩礁に膠着してみる。

DESCRIPTION

Text::Lorem::JA generates fake Japanese text via Markov chain.

METHODS

Most of instance methods can be called as class methods. Generated strings are in Perl's internal format (Unicode).

new
    $lorem = Text::Lorem::JA->new();
    $lorem = Text::Lorem::JA->new( dictionary => ..., chains => ... );

Creates a new Text::Lorem::JA generator object.

Can specify dictionary file and chains for generating sentences.

word
    $word = $lorem->word($length);

Returns a exact given $length string.

Argument length represents number of Unicode characters. Not bytes.

words
    $words = $lorem->words($number_of_morphems);

Generates a string composed from morphemes of given number.

At Japanese language, words are not delimited by whitespaces in normal style.

sentence
    $sentence = $lorem->sentence();

Generates a single sentence.

sentences
    $sentences = $lorem->sentences($number_of_sentences);

Generates sentences.

TOOL

You can use lorem_ja executable for generating Japanese Lorem text from CLI.

LICENSE

Copyright (C) ITO Nobuaki.

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

AUTHOR

ITO Nobuaki <dayflower@cpan.org>