File Coverage

blib/lib/Text/Lorem.pm

Criterion	Covered	Total	%
statement	44	44	100.0
branch	6	6	100.0
condition	4	5	80.0
subroutine	13	13	100.0
pod	4	10	40.0
total	71	78	91.0

package Text::Lorem;

use strict;
use warnings;
use vars qw($VERSION);

$VERSION = "0.33";

my $lorem_singleton;

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

sub generate_wordlist {
  my $self = shift;
  return [ map { s/\W//; lc($_) }split(/\s+/, ) ];
}

sub wordlist {
  my $self = shift;
  return $self->{ wordlist } ||= $self->generate_wordlist();
}

sub wordcount {
  my $self = shift;
  return scalar(@{$self->{ wordlist }});
}

sub get_word {
  my $self = shift;
  return $self->wordlist->[ int( rand( $self->wordcount ) ) ];
}

sub words {
  my $self = shift;
  my $num  = shift;
  my @words;
  push @words, $self->get_word() for (1..$num);
  return wantarray ? @words : join ' ', @words;
}

sub get_sentence {
  my $self = shift;
  my $words = $self->words( 4 + int( rand( 6 ) ) ) . '.';
  return ucfirst( $words );
}

sub sentences {
  my $self = shift;
  my $num = shift;
  my @sentences;
  push @sentences, $self->get_sentence for (1..$num);
  return wantarray ? @sentences : join ' ', @sentences;
}

sub get_paragraph {
  my $self = shift;
  my $paragraph = $self->sentences(3 + int( rand( 4 ) ) );
  return $paragraph;
}

sub paragraphs {
  my $self = shift;
  my $num = shift;
  my @paragraphs;
  push @paragraphs, $self->get_paragraph for (1..$num);
  return wantarray ? @paragraphs : join "\n\n", @paragraphs;
}

1;

=pod

=head1 NAME

Text::Lorem - Generate random Latin looking text

=head1 SYNOPSIS

    use Text::Lorem;

    my $text = Text::Lorem->new();

    # Generate a string of text with 5 words
    $words = $text->words(5);

    # Generate a list of 5 words
    @words = $text->words(5);

    # Generate a string of text with 2 sentences
    $sentences = $text->sentences(2);

    # Generate a list of 2 sentences
    @sentences = $text->sentences(2);

    # Generate a string of text with 3 paragraphs
    $paragraphs = $text->paragraphs(3);

    # Generate a list of 3 paragraphs
    @paragraphs = $text->paragraphs(3);

=head1 DESCRIPTION

Often when developing a website or other application it's important to have placeholders for content.  This module generates
prescribed amounts of fake Latin text.

=head1 CONSTRUCTOR

=over 4

=item C

The default constructor, C takes no arguments and returns a Text::Lorem object.

=back

=head1 METHODS

All methods below will return a string in scalar context or list in list context.

=over 4

=item C

Returns INTEGER fake Latin words.

=item C

Returns INTEGER sentences in fake Latin.

=item C

Returns INTEGER paragraphs of fake Latin text.

=back

=head1 THANKS

Thanks to the guys who pushed me off the cliff called comfort and into the scary world of Perl: James Duncan, Leon Brocard.

=head1 AUTHOR

Adeola Awoyemi ([e-mail])

=head1 SEE ALSO

  L and L

=head1 COPYRIGHT

Copyright (c) 2003 by Adeola Awoyemi.
This software is released under the same license as Perl itself.

=cut



























__DATA__