Gecko [ www.vortexaion.com ]

Windows NT KAMIDAKI 10.0 build 19045 (Windows 10) AMD64
Apache/2.4.58 (Win64) OpenSSL/3.1.3 PHP/8.3.9
Server IP : 192.168.3.16 & Your IP : 216.73.216.204
Domains : Cant Read [ /etc/named.conf ]
User : SISTEMA

Name	Size	Permission	Date
CPAN.pm	2.04 KB	-rw-rw-rw-	2020-02-07 22:50
Config.pm	2.14 KB	-rw-rw-rw-	2020-02-07 22:50
FileSpec.pm	4.87 KB	-rw-rw-rw-	2020-02-07 22:50
HomeDir.pm	1.96 KB	-rw-rw-rw-	2020-02-07 22:51
LoadYaml.pm	12.84 KB	-rw-rw-rw-	2020-02-07 22:51
minicpan.pm	1.34 KB	-rw-rw-rw-	2020-02-07 22:51

Rename

package Portable::minicpan;

use 5.008;
use strict;
use warnings;
use Portable::FileSpec;

our $VERSION = '1.23';

#####################################################################
# Portable Driver API

sub new {
	my $class  = shift;
	my $parent = shift;
	unless ( Portable::_HASH($parent->portable_minicpan) ) {
		die('Missing or invalid minicpan key in portable.perl');
	}

# Create the object
	my $self = bless { }, $class;

# Map paths to absolute paths
	my $minicpan = $parent->portable_minicpan;
	my $root     = $parent->dist_root;
	foreach my $key ( qw{ local } ) {
		unless (
			defined $minicpan->{$key}
			and
			length $minicpan->{$key}
		) {
			$self->{$key} = $minicpan->{$key};
			next;
		}
		$self->{$key} = Portable::FileSpec::catdir(
			$root, split /\//, $minicpan->{$key}
		);
	}

# Add the literal params
	$self->{remote}         = $minicpan->{remote};
	$self->{quiet}          = $minicpan->{quiet};
	$self->{force}          = $minicpan->{force};
	$self->{offline}        = $minicpan->{offline};
	$self->{also_mirror}    = $minicpan->{also_mirror};
	$self->{module_filters} = $minicpan->{module_filters};
	$self->{path_filters}   = $minicpan->{path_filters};
	$self->{skip_cleanup}   = $minicpan->{skip_cleanup};
	$self->{skip_perl}      = $minicpan->{skip_perl};
	$self->{no_conn_cache}  = $minicpan->{no_conn_cache};

return $self;
}