PrePAN

Sign in to PrePAN

Acme::Poet Poem repository on CPAN

Good

Synopsis

for my $poet (@{Acme::Poet->poets}) {
    my $poems = $poet->poems
    for my $poem (@$poems) {
        say $poem->title, "\n";
        say $poem->to_string;
    }
}

# outputs as follows:

便所の光景

額から胸へと、大きな弧を成し、身を反り出し、
いちはやく唇が嘴へ、やや遅れて突き出た胸には、白い綿毛。
エジプトの女王は、いまにも空へ舞い上がろうとしている。
勇壮さでもって、きたるべき敗退の予感を押し隠す
戦士の瞳は、かすかに潤んでいる。
地中海に散りばめられた宝石。
蠅をとらえる。
黒色の夜が空を千に裂いて、女たちに埋め込んでいく。
一角獣にまたがって、ひとりの少女が駈け出す。
蠅が地に落ちる。

Description

CPAN is now poem repository.

Comments

awesome module!

Please sign up to post a review.