CPAN::Groonga

package Mojo::Transmission;
use Mojo::Base -base;

use Exporter 'import';
use Mojo::JSON;
use Mojo::UserAgent;
use Mojo::Util qw(dumper url_escape);

use constant DEBUG          => $ENV{TRANSMISSION_D

eq 'purge') {
    return $self->_post('torrent-remove', {ids => $id, 'delete-local-data' => Mojo::JSON->true},
      $cb);
  }
  else {
    return $self->_post("torrent-$args", {ids => $id}, $cb);
  }

= $self->ua->post_p($self->url, $self->_headers, json => $req)->then(sub {
      my $tx = shift;
      warn '[TRANSMISSION] >>> ', dumper($tx->res->json || $tx->res->error), "\n" if DEBUG;
      retur