1 package System::Introspector::FileHandles;
6 my $pipe = $self->_open_lsof_pipe;
8 while (defined( my $line = <$pipe> )) {
10 my @fields = split m{\0}, $line;
11 push @handles, { map {
21 my $command = 'lsof -F0';
22 open my $pipe, '-|', $command
23 or die "Unable to open pipe to '$command': $!\n";