Lines 78-83
sub version_info {
Link Here
|
78 |
my ( $self, $module ) = @_; |
78 |
my ( $self, $module ) = @_; |
79 |
return -1 unless grep { /^$module$/ } keys(%$PERL_DEPS); |
79 |
return -1 unless grep { /^$module$/ } keys(%$PERL_DEPS); |
80 |
|
80 |
|
|
|
81 |
$Readonly::XS::MAGIC_COOKIE="Do NOT use or require Readonly::XS unless you're me."; |
81 |
eval "require $module"; |
82 |
eval "require $module"; |
82 |
my $pkg_version = $module->can("VERSION") ? $module->VERSION : 0; |
83 |
my $pkg_version = $module->can("VERSION") ? $module->VERSION : 0; |
83 |
my $min_version = $PERL_DEPS->{$module}->{'min_ver'} // 0; |
84 |
my $min_version = $PERL_DEPS->{$module}->{'min_ver'} // 0; |
84 |
- |
|
|