/usr/local/CPAN/HTTP-Engine/HTTP/Engine/Role/ResponseWriter/ResponseLine.pm

• package HTTP::Engine::Role::ResponseWriter::ResponseLine
  • response_line
• EOF

package HTTP::Engine::Role::ResponseWriter::ResponseLine;
use Any::Moose '::Role';
use HTTP::Status ();

sub response_line {
    my ($self, $res) = @_;

    join(" ", $res->protocol, $res->status, HTTP::Status::status_message($res->status));
}

1;