52:     $self->{'upgrade_pm'} = [];
   53:     $self->{'current_pm'} = [];
   54: 
   55:     foreach my $phase ($self->prereqs->phases) {
   56:         foreach my $type ($self->prereqs->types_in($phase)) {
   57:             my $reqs = $self->prereqs->requirements_for($phase, $type);
   58:             foreach my $module ($reqs->required_modules) {

Show function arguments

   99:     }
  100: 
  101:     my $perl_modules = C4::Installer::PerlModules->new;
  102:     $perl_modules->versions_info;
  103: 
  104:     my $missing_modules = $perl_modules->get_attr('missing_pm');
  105:     my $upgrade_modules = $perl_modules->get_attr('upgrade_pm');