#!/usr/bin/perl
use 5.012;
use warnings;


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
}
