Yet Another CPAN Grep

Mojolicious-Command-nopaste-Service-perlbot ( S/SI/SIMCOP/Mojolicious-Command-nopaste-Service-perlbot-0.007.tar.gz, SIMCOP, 2021; MetaCPAN )

Mojolicious-Command-nopaste-Service-perlbot/lib/Mojolicious/Command/nopaste/Service/perlbot.pm ( view source; MetaCPAN )

aste::Service::perlbot;
use Mojo::Base 'Mojolicious::Command::nopaste::Service';
use Mojo::JSON qw/decode_json/;

use Getopt::Long;

our $VERSION = '0.007';

# ABSTRACT: Pastes stuff to https://perl.b

s) {
    say "Failed to get channels, try again later.";
    exit 1;
  }

  my $response = decode_json $tx->res->body;

  my $output="Channels supported by perl.bot, all values subject to change.\n---

->is_success) {
    say "Failed to get languages, try again later.";
  }

  my $response = decode_json $tx->res->body;

  my $output="Languages supported by perl.bot\n-----------------------------\n";