view release on metacpan or  search on metacpan

bin/cnq  view on Meta::CPAN

  help       => \&do_help,
;
#<<< 

sub do_categories {
    my ($ARGV) = @_;
    my $cnq    = Acme::Free::API::ChuckNorris->new;
    my $cats   = $cnq->categories;
    printf STDERR "Found %d categories\n", scalar @{ o2d $cats };
    foreach my $cat ( $cats->all ) {
        say " $cat";
    }
    return $cats;
}

sub do_random {
    my ($ARGV) = @_;
    my $o      = Getopt2h2o $ARGV, {}, qw/category=s/;
    my $cnq    = Acme::Free::API::ChuckNorris->new;
    return printf "%s\n", $cnq->random( category => $o->category );
}

bin/cnq  view on Meta::CPAN

    my $terms  = join " ", @_;
    my $cnq    = Acme::Free::API::ChuckNorris->new;
    my $ret    = $cnq->search( terms => $terms );
    my $quotes = $ret->result;
    printf STDERR "Found %d quotes\n", $ret->total;
    if ( $ret->total == 0 ) {
        warn "warning: cnq: no results for '$terms'\n";
        exit;
    }
    foreach my $quote ( $quotes->all ) {
        say $quote->value;
    }
    return;
}

sub do_help {
    warn "warning cnq: subcommand may be one of the following: 'random', 'categories', 'search', or 'help' (prints this!)\n";
}

__END__

lib/Acme/Free/API/ChuckNorris.pm  view on Meta::CPAN

  my $cnq    = Acme::Free::API::ChuckNorris->new;
  my $ret    = $cnq->search(terms => $terms);
  my $quotes = $ret->result;
  printf STDERR "Found %d quotes\n", $ret->total;
  if ($ret->total == 0) {
    warn "warning: cnq: no results for '$terms'\n";
    exit;
  }
  foreach my $quote ($quotes->all) {
    say $quote->value;
  }

=back

=head1 C<cnq> OPTIONS

=over 4

=item C<categories>