Yet Another CPAN Grep

WWW-Telegram-BotAPI ( R/RO/ROBERTOF/WWW-Telegram-BotAPI-0.12.tar.gz, ROBERTOF, 2020; MetaCPAN )

WWW-Telegram-BotAPI/lib/WWW/Telegram/BotAPI.pm ( view source; MetaCPAN )

ngs::register;
use Carp ();
use Encode ();
use JSON::MaybeXS ();
use constant DEBUG => $ENV{TELEGRAM_BOTAPI_DEBUG} || 0;

our $VERSION = "0.12";
my $json; # for debugging purposes, only defined when D

UserAgent; 1" or
        die "Either Mojo::UserAgent or LWP::UserAgent is required.\n$@";
    $json = JSON::MaybeXS->new (pretty => 1, utf8 => 1) if DEBUG;
}

# Debugging functions (only used when DEB

dump) = splice @_, -2;
    _dprintf @_ if @_;
    printf "%s = %s", $varname, defined $to_dump ? $json->encode ($to_dump) : "undefined\n";
}

# %settings = (
#     async     => Bool,
#     token     =