Gecko [ gtgates.com ]

Linux ams-business-8.hostwindsdns.com 4.18.0-553.80.1.lve.el8.x86_64 #1 SMP Wed Oct 22 19:29:36 UTC 2025 x86_64
LiteSpeed
Server IP : 192.236.177.161 & Your IP : 216.73.216.50
Domains : Cant Read [ /etc/named.conf ]
User : ajzdfbpz

Name	Size	Permission	Date
Dependency.pm	1.84 KB	-rw-r--r--	2024-11-26 08:39
fatscript.pm	19.71 KB	-rw-r--r--	2024-11-26 08:39
script.pm	88.92 KB	-rw-r--r--	2024-11-26 08:39

Rename

package App::cpanminus::Dependency;
use strict;
use CPAN::Meta::Requirements;

sub from_prereqs {
    my($class, $prereqs, $phases, $types) = @_;

my @deps;
    for my $type (@$types) {
        push @deps, $class->from_versions(
            $prereqs->merged_requirements($phases, [$type])->as_string_hash,
            $type,
        );
    }

return @deps;
}

sub from_versions {
    my($class, $versions, $type) = @_;

my @deps;
    while (my($module, $version) = each %$versions) {
        push @deps, $class->new($module, $version, $type)
    }

@deps;
}

sub merge_with {
    my($self, $requirements) = @_;

# save the original requirement
    $self->{original_version} = $self->version;

# should it clone? not cloning means we upgrade root $requirements on our way
    eval {
        $requirements->add_string_requirement($self->module, $self->version);
    };
    if ($@ =~ /illegal requirements/) {
        # Just give a warning then replace with the root requirements
        # so that later CPAN::Meta::Check can give a valid error
        warn sprintf("Can't merge requirements for %s: '%s' and '%s'",
                    $self->module, $self->version,
                    $requirements->requirements_for_module($self->module));
    }

$self->{version} = $requirements->requirements_for_module($self->module);
}

sub new {
    my($class, $module, $version, $type) = @_;

bless {
        module => $module,
        version => $version,
        type => $type || 'requires',
    }, $class;
}

sub module  { $_[0]->{module} }
sub version { $_[0]->{version} }
sub type    { $_[0]->{type} }

sub requires_version {
    my $self = shift;

# original_version may be 0
    if (defined $self->{original_version}) {
        return $self->{original_version};
    }

$self->version;
}

sub is_requirement {
    $_[0]->{type} eq 'requires';
}