1 package System::Introspector::Packages::Apt;
7 installed => $self->_gather_installed,
11 sub _open_dpkg_query_pipe {
13 my $command = 'dpkg-query --show';
14 open my $pipe, '-|', $command
15 or die "Unable to open pipe to '$command': $!\n";
19 sub _gather_installed {
21 my $pipe = $self->_open_dpkg_query_pipe;
23 while (defined( my $line = <$pipe> )) {
25 my ($package, $version) = split m{\s+}, $line;
26 $package{ $package } = {
39 System::Introspector::Packages::Apt - Gather APT package status
43 Uses C<dpkg-query> to list all installed packages.
49 =item L<System::Introspector>