File Coverage

blib/lib/Devel/Memalyzer/Runner.pm

Criterion	Covered	Total	%
statement	29	29	100.0
branch	4	4	100.0
condition	2	2	100.0
subroutine	9	9	100.0
pod	0	2	0.0
total	44	46	95.6

package Devel::Memalyzer::Runner;
use strict;
use warnings;

use base 'Devel::Memalyzer::Base';
use Devel::Memalyzer;

use Time::HiRes qw/sleep/;
use POSIX;

__PACKAGE__->gen_accessors(qw/ command interval /);

sub run {
    my $self = shift;
    $self->collect;
}

sub _run {
    my $self = shift;
    die ( "already ran" ) if $self->{ _run }++;
    exec $self->command unless my $pid = fork();
    return $pid;
}

sub collect {
    my $self = shift;

    my $pid = $self->_run;
    until ( waitpid( $pid, &POSIX::WNOHANG )) {
        Devel::Memalyzer->singleton->record( $pid );
        sleep ($self->interval || 1 );
    }
}

1;

__END__