File Coverage

blib/lib/Data/Fake/Text.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch	8	8	100.0
condition	4	9	44.4
subroutine	12	12	100.0
pod	3	3	100.0
total	61	66	92.4

use 5.008001;
use strict;
use warnings;

package Data::Fake::Text;
# ABSTRACT: Fake text data generators

our $VERSION = '0.005';

use Exporter 5.57 qw/import/;

our @EXPORT = qw(
  fake_words
  fake_sentences
  fake_paragraphs
);

use Data::Fake::Core qw/_transform/;

my $LOREM;

#pod =func fake_words
#pod
#pod     $generator = fake_words();    # single "lorem" word
#pod     $generator = fake_words($n);  # N "lorem" words, space separated
#pod     $generator = fake_words( fake_int(1, 3) ); # random number of them
#pod
#pod Returns a generator that provides space-separated L words.
#pod The argument is the number of words to return (or a code reference to
#pod provide the number of words); the default is one.
#pod
#pod =cut

sub fake_words {
    my ($count) = @_;
    $count = 1 unless defined $count;
    require Text::Lorem;
    $LOREM ||= Text::Lorem->new;
    return sub { $LOREM->words( _transform($count) ) };
}

#pod =func fake_sentences
#pod
#pod     $generator = fake_sentences();    # single fake sentence
#pod     $generator = fake_sentences($n);  # N sentences
#pod     $generator = fake_sentences( fake_int(1, 3) ); # random number of them
#pod
#pod Returns a generator that provides L sentences.  The argument
#pod is the number of sentences to return (or a code reference to provide the
#pod number of sentences); the default is one.
#pod
#pod =cut

sub fake_sentences {
    my ($count) = @_;
    $count = 1 unless defined $count;
    return sub { "" }
      if $count == 0;
    require Text::Lorem;
    $LOREM ||= Text::Lorem->new;
    return sub { $LOREM->sentences( _transform($count) ) };
}

#pod =func fake_paragraphs
#pod
#pod     $generator = fake_paragraphs();    # single fake paragraph
#pod     $generator = fake_paragraphs($n);  # N paragraph
#pod     $generator = fake_paragraphs( fake_int(1, 3) ); # random number of them
#pod
#pod Returns a generator that provides L paragraphs.  The argument
#pod is the number of paragraphs to return (or a code reference to provide the
#pod number of paragraphs); the default is one.
#pod
#pod =cut

sub fake_paragraphs {
    my ($count) = @_;
    $count = 1 unless defined $count;
    require Text::Lorem;
    $LOREM ||= Text::Lorem->new;
    return sub { $LOREM->paragraphs( _transform($count) ) };
}

1;


# vim: ts=4 sts=4 sw=4 et tw=75:

__END__