CPAN::Groonga

dy                        ();
use HTTP::CookieMonster               ();
use JSON::MaybeXS                     qw( decode_json );
use List::AllUtils                    qw( any apply none );
use Log::Di

yParam                   qw();
use XML::Simple                       qw( XMLin );

my $json_regex = qr{vnd.*\+json};

sub BUILD {
    my $self = shift;
    $Text::SimpleTable::AutoWidth::WIDTH_LIMIT =

                'javascript', 'html', 'json', 'xml', 'soap+xml',
                'x-www-form-urlencoded',
            )
        )
        && $subtype !~ m{$json_regex}
    ) {
        $content = $sel