lib/System/Introspector/Report/Builder/Packages/Apt/API.pm

   1 package System::Introspector::Report::Builder::Packages::Apt::API;
   2 use Moo::Role;
   3
   4 requires qw(
   5   _collect_from_data
   6 );
   7
   8 sub collect_from {
   9   my ($self, $id, $data) = @_;
  10   my $host    = $data->{host}{hostname};
  11   my $package = $data->{'packages/apt'}{installed}{packages} || {};
  12   my $upgrade = $data->{'packages/apt'}{upgradable}{actions}{inst} || {};
  13   return $self->_collect_from_data($id, $host, $package, $upgrade, $data);
  14 }
  15
  16 sub _clear_upgrade {
  17   my ($self, $string, $version) = @_;
  18   return undef
  19     unless defined $string;
  20   $string =~ s{^\[\Q$version\E\]\s*\((.+)\)$}{$1};
  21   return $string;
  22 }
  23
  24 1;