/usr/local/CPAN/HTTP-Engine-Middleware/HTTP/Engine/Middleware/Role/Logger.pm

• package HTTP::Engine::Middleware::Role::Logger
  • log
• EOF

package HTTP::Engine::Middleware::Role::Logger;
use Any::Moose '::Role';

has 'logger' => (
    is       => 'rw',
    isa      => 'CodeRef',
    required => 1,
    default  => sub { sub {} },
);

sub log {
    my ($self, $msg) = @_;
    $self->logger->( $msg );
}

1;