File Coverage

blib/lib/System/Introspector/Probe/FileHandles.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	1	0.0
total	24	25	96.0

package System::Introspector::Probe::FileHandles;
use Moo;

use System::Introspector::Util qw(
    lines_from_command
    transform_exceptions
);

has lsof_command => (is => 'ro', default => sub { 'lsof' });

sub gather {
    my ($self) = @_;
    return transform_exceptions {
        my @lines = lines_from_command [$self->_lsof_command_call];
        my @handles;
        for my $line (@lines) {
            chomp $line;
            my @fields = split m{\0}, $line;
            push @handles, { map {
                m{^(.)(.*)$};
                ($1, $2);
            } @fields };
        }
        return { handles => \@handles };
    };
}

sub _lsof_command_call {
    my ($self) = @_;
    return $self->lsof_command, '-F0';
}

1;

__END__