1 package System::Introspector::FileHandles;
4 use System::Introspector::Util qw(
11 return transform_exceptions {
12 my $pipe = $self->_open_lsof_pipe;
14 while (defined( my $line = <$pipe> )) {
16 my @fields = split m{\0}, $line;
17 push @handles, { map {
22 return { handles => \@handles };
28 return handle_from_command 'lsof -F0';
37 System::Introspector::FileHandles - Gather opened filehandles
41 Uses C<lsof> to build a list of open filehandles.
47 =item L<System::Introspector>