File Coverage

blib/lib/Test/CGI/Multipart/Gen/Text.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	12	12	100.0
condition	3	3	100.0
subroutine	10	10	100.0
pod			n/a
total	62	62	100.0

package Test::CGI::Multipart::Gen::Text;

use warnings;
use strict;
use Carp;
use Readonly;
use Test::CGI::Multipart;
use Text::Lorem;
use Scalar::Util qw(looks_like_number);

use version; our $VERSION = qv('0.0.3');

# Module implementation here

Test::CGI::Multipart->register_callback(callback => \&_random_text_cb);

sub _random_text_cb {
    my $href = shift;

    # If the MIME type is not explicitly text/plain its not ours.
    return $href if !exists $href->{type};
    return $href if $href->{type} ne 'text/plain';

    return $href if exists $href->{value};

    my $lorem = Text::Lorem->new;

    my $arg = sub {
        my $arg = shift;
        return exists $href->{$arg} && looks_like_number($href->{$arg});
    };

    $href->{value}
        = &$arg('words') ? $lorem->words($href->{words})
        : &$arg('sentences') ? $lorem->sentences($href->{sentences})
        : &$arg('paragraphs') ? $lorem->paragraphs($href->{paragraphs})
        : croak 'No words, sentences or paragraphs specified';

    delete $href->{words};
    delete $href->{sentences};
    delete $href->{paragraphs};

    return $href;
}


1; # Magic true value required at end of module
__END__