view release on metacpan or  search on metacpan

bin/fletch  view on Meta::CPAN

    # require --breed
    if ( not $o->breed ) {
        warn "FATAL: --breed BREED, is required\n";
        return EXIT_ERROR;
    }

    my $images = $fletch->images( breed => $o->breed );

    foreach my $url ( $images->all ) {
        say $url;
    }

    return EXIT_SUCCESS;
}

# fletch random [--breed BREED]
sub do_random {
    my ($ARGV) = @_;
    my $o      = Getopt2h2o $ARGV, {}, qw/breed=s/;