Yet Another CPAN Grep

App-Nopaste-Service-Perlbot ( S/SI/SIMCOP/App-Nopaste-Service-Perlbot-0.005.tar.gz, SIMCOP, 2021; MetaCPAN )

App-Nopaste-Service-Perlbot/lib/App/Nopaste/Service/Perlbot.pm ( view source; MetaCPAN )

 - https://perlbot.pl/

our $VERSION = '0.005';

use parent 'App::Nopaste::Service';
use JSON::PP qw/decode_json/;

sub run {
    my ($self, %arg) = @_;
    my $ua = LWP::UserAgent->new;

    if ($arg

   return (0, "Failed to get channels, try again later.\n");
      }

      my $response = decode_json $res->decoded_content;

      my $output="Channels supported by perl.bot, all values subject to c

($res->is_success()) {
          my $content = $res->decoded_content;
          my $data = decode_json $content;

          return (1, $data->{url});
      } else {
          return (0, "Paste failed"