ers, json => \%payload);
# blocking
unless ($cb) {
$tx = $ua->start($tx);
if (my $err = $tx->error) {
return $err;
}
die "Failed to send message\n" unless $tx->res->json->{o
$tx_) = @_;
my ($err, $json);
$json = $tx_->res->json unless $err = $tx_->error;
($err //= {})->{message} ||= 'Failed to send message'
unless $tx->res->json->{ok};
Mojo::IOLoop->
next_tick(sub { $self->$cb($err, $json, $tx_) });
});
return $self;
}
1;
__END__
=head1 NAME
Mojar::Message::Telegram - Send messages via Telegram.
=head1 SYNOPSIS
use Mojar::Message::Teleg