CPAN::Groonga

 or single method given";
    }
}

# Payload (3) Headers Attributes Body Body_CODE Body_YAML Body_JSON Schema Concat
BEGIN { push @EXPORT_OK => qw(Payload) }

sub Payload {
    my $args = shift;
    m

 Body_YAML( delete $args->{yaml} );
    }
    elsif ( exists $args->{json} ) {
        push @body => Body_JSON( delete $args->{json} );
    }

    push @body => Schema( delete $args->{schema} ) if exi

' ) );
}

sub _json {
    my ($struct) = @_;
    load_class('JSON');
    our $JSON //= JSON->new->utf8->pretty->allow_nonref->convert_blessed;
    $JSON->encode($struct);
}

# Body_JSON (2) Body_CODE