sub _parse_body()

in lib/Search/Elasticsearch/Role/Client/Direct.pm [90:100]

• 10 lines of code
• 5 McCabe index (conditional complexity)

sub _parse_body {
#===================================
    my ( $self, $defn, $params ) = @_;
    if ( defined $defn ) {
        die("Missing required param (body)\n")
            if $defn->{required} && !$params->{body};
        return delete $params->{body};
    }
    die("Unknown param (body)\n") if $params->{body};
    return undef;
}