File Coverage

blib/lib/Mojolicious/Plugin/StaticLog.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch	3	4	75.0
condition	2	2	100.0
subroutine	3	3	100.0
pod	1	1	100.0
total	24	25	96.0

package Mojolicious::Plugin::StaticLog;
use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '0.04';

sub register {
    my ($self, $app, $conf) = @_;
    my $level = $conf->{level} || 'debug';
    die "$level: unsupported log-level"
        unless $level =~ /^(debug|info|warn|error|fatal)$/;
    $app->hook(
        after_static => sub {
            my $c        = shift;
            my $log      = $c->app->log;
            return unless $log->is_level($level);
            my $path = $c->req->url->path;
            my $size = sprintf '%6s', $c->res->content->body_size;
            my $code = $c->res->code;
            $log->$level("Static $code $size $path");
        });
    return;
}

1;
__END__