1 package System::Introspector::Packages::Apt;
7 installed => $self->_gather_installed,
11 sub _gather_installed {
13 my $command = "dpkg-query --show";
14 open my $pipe, '-|', $command
15 or die "Unable to open pipe to '$command': $!\n";
17 while (defined( my $line = <$pipe> )) {
19 my ($package, $version) = split m{\s+}, $line;
20 $package{ $package } = {