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

• package HTTP::Engine::Role::ResponseWriter::WriteSTDOUT
  • write
• EOF

package HTTP::Engine::Role::ResponseWriter::WriteSTDOUT;
use Any::Moose '::Role';

sub write {
    my($self, $buffer) = @_;
    print STDOUT $buffer;
}

1;