1 package System::Introspector::Packages::Apt;
4 use System::Introspector::Util qw(
12 installed => transform_exceptions {
13 return { packages => $self->_gather_installed };
18 sub _open_dpkg_query_pipe {
20 return handle_from_command 'dpkg-query --show';
23 sub _gather_installed {
25 my $pipe = $self->_open_dpkg_query_pipe;
27 while (defined( my $line = <$pipe> )) {
29 my ($package, $version) = split m{\s+}, $line;
30 $package{ $package } = {
43 System::Introspector::Packages::Apt - Gather APT package status
47 Uses C<dpkg-query> to list all installed packages.
53 =item L<System::Introspector>