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 $pipe = $self->_open_lsof_pipe;
16 while (defined( my $line = <$pipe> )) {
18 my @fields = split m{\0}, $line;
19 push @handles, { map {
24 return { handles => \@handles };
30 my $lsof = $self->lsof_command;
31 return handle_from_command "$lsof -F0";
40 System::Introspector::FileHandles - Gather opened filehandles
44 Uses C<lsof> to build a list of open filehandles.
50 =item L<System::Introspector>