Select Code to Download

use Data::Dump;

...
        return URI->new("https://h.wrttn.me/post");
    }
}

my $mtgox = Local::Finance::MtGox->new({ key => 'key', secret => 'secr
+et' });
$mtgox->{mech}->ssl_opts(verify_hostname => 0);
dd $mtgox->call_auth('getFunds');

use AnyEvent;
use AnyEvent::Util 'fork_call';
...
my $cv = AE::cv;
fork_call { $mtgox->call_auth('getFunds') } sub { dd @_; $cv->send };
$cv->wait;

use Coro;
use LWP::Protocol::AnyEvent::http;
...
    $mtgox->call_auth('getFunds');
};
dd $coro->join;

use AnyEvent;
use AnyEvent::HTTP::Request;
...
$req->send;

$cv->wait;