1 package System::Introspector::Probe::FileHandles;
4 use System::Introspector::Util qw(
9 has lsof_command => (is => 'ro', default => sub { 'lsof' });
13 return transform_exceptions {
14 my @lines = lines_from_command [$self->_lsof_command_call];
16 for my $line (@lines) {
18 my @fields = split m{\0}, $line;
19 push @handles, { map {
24 return { handles => \@handles };
28 sub _lsof_command_call {
30 return $self->lsof_command, '-F0';
39 System::Introspector::FileHandles - Gather opened filehandles
43 Uses C<lsof> to build a list of open filehandles.
49 =item L<System::Introspector>