The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use lib 't/lib';
use Test::More;
use Test::Riak;

test_riak_rest {
    my ($client) = @_;
    my $resp = $client->stats;
    is ref($resp), 'HASH', 'got stats';
    ok exists $resp->{webmachine_version}, 'contains expected key';
};