File Coverage

chicken-ipsum.in

Criterion	Covered	Total	%
statement	24	26	92.3
branch	5	6	83.3
condition	6	6	100.0
subroutine	7	7	100.0
pod			n/a
total	42	45	93.3

#!perl
use 5.012;
use warnings;

# :squash-remove-start:
use FindBin;
use lib "$FindBin::Bin/lib";
# :squash-remove-end:

require Chicken::Ipsum;

if (($ARGV[0] // '') eq '--help') {
    print HELP_MESSAGE();
    exit 0;
}

if (($ARGV[0] // '') eq '--version') {
    print VERSION_MESSAGE();
    exit 0;
}

if (@ARGV > 1) {
    print STDERR USAGE();
    exit 2;
}

my $num_paragraphs = int (shift // 1);
say scalar Chicken::Ipsum->new->paragraphs($num_paragraphs);

sub USAGE {
    return <<'EOUSAGE'
Usage: chicken-ipsum [NUM]
EOUSAGE
}

sub HELP_MESSAGE {
    return USAGE() . <<'EOHELP';
Generate NUM paragraphs of random chicken noises (1 paragraph by default)

Options:
    --help      Show this message
    --version   Show version
EOHELP
}

sub VERSION_MESSAGE {
    return <<"EOVERSION";
chicken-ipsum (Chicken::Ipsum) $Chicken::Ipsum::VERSION
EOVERSION
}