File Coverage

blib/lib/Plack/Middleware/LightProfile.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	27	27	100.0

package Plack::Middleware::LightProfile;
$Plack::Middleware::LightProfile::VERSION = '0.002';
use parent qw/Plack::Middleware/;
use Process::SizeLimit::Core;
use Time::HiRes qw/gettimeofday tv_interval/;
use Log::Any qw/$log/;

sub call {
    my ($self, $env) = @_;
    my ($base_memory) = Process::SizeLimit::Core->_check_size();
    my $t0 = [gettimeofday()];
    my $res = $self->app->($env);
    my $duration = tv_interval($t0);
    my ($end_memory) = Process::SizeLimit::Core->_check_size();
    my $memory_consumed = $end_memory - $base_memory;
    $log->infof("response time: %5.3f end memory: %d added memory: %d", $duration, $end_memory, $memory_consumed);
    return $res;
}

1;

__END__