File Coverage

blib/lib/Proc/Info/Environment/Linux.pm

Criterion	Covered	Total	%
statement	21	24	87.5
branch	2	4	50.0
condition			n/a
subroutine	4	4	100.0
pod	0	1	0.0
total	27	33	81.8

###########################################
package Proc::Info::Environment::Linux;
###########################################
use strict;
use warnings;
use base qw(Proc::Info::Environment);

###########################################
sub env {
###########################################
    my($self, $pid) = @_;

    if(!defined $pid) {
        die "Variable \$pid not defined";
    }

    my $file = "/proc/$pid/environ";

    if(! open FILE, "<$file") {
        $self->error( "Cannot open $file ($!)" );
        return undef;
    }

    local $/ = undef;

    my $data = ;
    close FILE;

    my %found = ();

    for my $chunk (split /\0/, $data) {
        my($key, $value) = split /=/, $chunk, 2;

        ###l4p DEBUG("Found in env of pid=$pid: key=$key value=$value");

        $found{ $key } = $value;
    }

    return \%found;
}

1;

__END__