use strict;
use warnings;

use Brannigan;
use JSON;
use Data::Dumper;

my $json = q|
{
    "method": "xxx",
    "backend": {
        "client": "mytest009",
        "pw": "sdkjfhsfjhKJH87"
    },
    "blah": "123"    # Junk
}|;

my $data = decode_json($json);

my $b = Brannigan->new({
    name => 'jsonPost',
    params => {
        method => { required => 1, one_of => ['xxx', ], },
        backend => {
            hash => 1,
            keys => {
                client => { required => 1 },
                pw => { required => 1 },
            }
        },
    }
});

my $result = $b->process('jsonPost', $data);
if ($result->{_rejects}) {
    print "ERROR\n";
    print Dumper $result->{_rejects}, "\n";
}
else {
    print "OK\n";
}