NAME
Lingua::Poetry::Haiku::Finder - find poetry in the least poetic places
SYNOPSIS
use Lingua::Poetry::Haiku::Finder;
my $finder = 'Lingua::Poetry::Haiku::Finder'->from_filename(
'/usr/share/common-licenses/GPL-2'
);
for my $poem ( @{ $finder->haikus } ) {
print "$poem\n\n";
}
DESCRIPTION
This module will scan a string (which may be read from a file) for
consecutive sentences which sound like haikus.
It uses Lingua::EN::Syllable, which provides imperfect syllable counts, so
they may not always work. It will also occasionally split lines as 6/7/4
or similar, to avoid hyphenating a word and splitting it onto multiple
lines.
Constructors
`from_text( $string )`
`from_filehandle( $ref )`
`from_filename( $string )`
Methods
`haikus`
Returns an arrayref of strings, each string being one haiku. Lines of
each haiku are joined using "\n".
There are other methods and helper classes, but you probably don't need to
know about them.
BUGS
Please report any bugs to
<http://rt.cpan.org/Dist/Display.html?Queue=Lingua-Poetry-Haiku-Finder>.
SEE ALSO
<https://en.wikipedia.org/wiki/Black_Perl>.
AUTHOR
Toby Inkster <tobyink@cpan.org>.
COPYRIGHT AND LICENCE
This software is copyright (c) 2021 by Toby Inkster.
This is free software; you can redistribute it and/or modify it under the
same terms as the Perl 5 programming language system itself.
DISCLAIMER OF WARRANTIES
THIS PACKAGE IS PROVIDED "AS IS" AND WITHOUT ANY EXPRESS OR IMPLIED
WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF
MERCHANTIBILITY AND FITNESS FOR A PARTICULAR PURPOSE.