is($json->content_type, 'json', 'Correct content type is returned');
is($json->true, JSON::True, 'True is true.');
is($json->true, JSON::true, 'True is true.');
sub trim {
$_ = shift;
s/^\s*(.*?)\s*$/$1/r;
$_ =~ s/^\s*(.*?)\s*$/$1/;
return $_;
}
-