File Coverage

blib/lib/Devel/Memalyzer/Plugin/ProcStatus.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	4	6	66.6
condition			n/a
subroutine	7	7	100.0
pod	0	2	0.0
total	38	42	90.4

package Devel::Memalyzer::Plugin::ProcStatus;
use strict;
use warnings;

BEGIN {
    die( __PACKAGE__ . ' cannot be used without a proc filesystem')
        unless -e '/proc';
}

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

sub collect {
    my $self = shift;
    my ( $pid ) = @_;
    return $self->capture_status( $pid );
}

sub status {
    my $self = shift;
    my ( $pid ) = @_;
    return "/proc/$pid/status";
}

sub capture_status {
    my $self = shift;
    my ( $pid ) = @_;
    open( my $status, '<', $self->status( $pid )) || die( "Error opening status: $!" );
    my %data;
    while( my $line = <$status> ){
        next unless $line =~ m/^Vm/;
        chomp( $line );
        my ( $key, $value ) = split( /:\s+/, $line );
        $value =~ s/\s.*$//;
        $data{ $key } = $value;
    }
    return %data;
}

1;

__END__