Yet Another CPAN Grep

Tapper-CLI ( A/AM/AMD/Tapper-CLI-4.1.0.tar.gz, TAPPER, 2012; MetaCPAN )

Tapper-CLI/lib/Tapper/CLI/Resource.pm ( view source; MetaCPAN )

 resource_list {
        my ($c) = @_;
        $c->getopt( 'name=s@', 'id=i@', 'active', 'free', 'json', 'verbose|v', 'help|?' );
        if ( $c->options->{help} ) {
                say STDERR "$0 re

"    --verbose       Show extended information";
                say STDERR "    --json          Give results as json";
                say STDERR "    --help          Show this help";

ies = $resources->all;
        if ($c->options->{json}) {
                require JSON;

                my @json_resources;

                push @json_resources, {
                        id => $_->