view release on metacpan or  search on metacpan

lib/HTTP/Tinyish/Base.pm  view on Meta::CPAN

            $res->{headers}{$k} = $header;
        }
    }
}

sub internal_error {
    my($self, $url, $message) = @_;

    return {
        content => $message,
        headers => { "content-length" => length($message), "content-type" => "text/plain" },
        reason  => "Internal Exception",
        status  => 599,
        success => "",
        url     => $url,
    };
}

1;