| Lines 68-77
          sub version_info {
      
      
        Link Here | 
        
          | 68 |     if ($params{'module'}) { | 68 |     if ($params{'module'}) { | 
        
          | 69 |         return -1 unless grep {m/$params{'module'}/} keys(%$PERL_DEPS); | 69 |         return -1 unless grep {m/$params{'module'}/} keys(%$PERL_DEPS); | 
        
          | 70 |         eval "require $params{'module'}"; | 70 |         eval "require $params{'module'}"; | 
            
              |  |  | 71 |         my $pkg_version =  $params{'module'} &&  $params{'module'}->can("VERSION") ? $params{'module'}->VERSION : 0; | 
            
              | 72 |         my $min_version =  $PERL_DEPS->{$params{'module'}}->{'min_ver'} // 0; | 
        
          | 71 |         if ($@) { | 73 |         if ($@) { | 
        
          | 72 |             return {$params{'module'} => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, upgrade => 0, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; | 74 |             return {$params{'module'} => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, upgrade => 0, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; | 
        
          | 73 |         } | 75 |         } | 
          
            
              | 74 |         elsif ($params{'module'}->VERSION lt $PERL_DEPS->{$params{'module'}}->{'min_ver'}) { | 76 |         elsif (version->parse("$pkg_version") < version->parse("$min_version")) { | 
        
          | 75 |             return {$params{'module'} => {cur_ver => $params{'module'}->VERSION, min_ver => $PERL_DEPS->{$params{'module'}}->{'min_ver'}, upgrade => 1, required => $PERL_DEPS->{$params{'module'}}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; | 77 |             return {$params{'module'} => {cur_ver => $params{'module'}->VERSION, min_ver => $PERL_DEPS->{$params{'module'}}->{'min_ver'}, upgrade => 1, required => $PERL_DEPS->{$params{'module'}}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}; | 
        
          | 76 |         } | 78 |         } | 
        
          | 77 |         else { | 79 |         else { | 
  
    | Lines 82-91
          sub version_info {
      
      
        Link Here | 
        
          | 82 |         for (sort keys(%{$PERL_DEPS})) { | 84 |         for (sort keys(%{$PERL_DEPS})) { | 
        
          | 83 |             my $pkg = $_;  #  $_ holds the string | 85 |             my $pkg = $_;  #  $_ holds the string | 
        
          | 84 |             eval "require $pkg"; | 86 |             eval "require $pkg"; | 
            
              |  |  | 87 |             my $pkg_version =  $params{'module'} &&  $params{'module'}->can("VERSION") ? $params{'module'}->VERSION : 0; | 
            
              | 88 |             my $min_version = $PERL_DEPS->{$_}->{'min_ver'} // 0; | 
        
          | 85 |             if ($@) { | 89 |             if ($@) { | 
        
          | 86 |                 push (@{$self->{'missing_pm'}}, {$_ => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); | 90 |                 push (@{$self->{'missing_pm'}}, {$_ => {cur_ver => 0, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); | 
        
          | 87 |             } | 91 |             } | 
          
            
              | 88 |             elsif ($pkg->VERSION lt $PERL_DEPS->{$_}->{'min_ver'}) { | 92 |             elsif (version->parse("$pkg_version") < version->parse("$min_version")) { | 
        
          | 89 |                 push (@{$self->{'upgrade_pm'}}, {$_ => {cur_ver => $pkg->VERSION, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); | 93 |                 push (@{$self->{'upgrade_pm'}}, {$_ => {cur_ver => $pkg->VERSION, min_ver => $PERL_DEPS->{$_}->{'min_ver'}, required => $PERL_DEPS->{$_}->{'required'}, usage => $PERL_DEPS->{$_}->{'usage'}}}); | 
        
          | 90 |             } | 94 |             } | 
        
          | 91 |             else { | 95 |             else { | 
            
              | 92 | -  |  |  |