Current Path : /proc/3/task/3/root/proc/2/cwd/usr/share/perl5/x86_64-linux-thread-multi/B/Utils/Install/

Upload File :

Current File : //proc/3/task/3/root/proc/2/cwd/usr/share/perl5/x86_64-linux-thread-multi/B/Utils/Install/Files.pm

package B::Utils::Install::Files;

$self = {
          'deps' => [],
          'inc' => '',
          'libs' => '',
          'typemaps' => [
                          'typemap'
                        ]
        };

@deps = @{ $self->{deps} };
@typemaps = @{ $self->{typemaps} };
$libs = $self->{libs};
$inc = $self->{inc};

	$CORE = undef;
	foreach (@INC) {
		if ( -f $_ . "/B/Utils/Install/Files.pm") {
			$CORE = $_ . "/B/Utils/Install/";
			last;
		}
	}

	sub deps { @{ $self->{deps} }; }

	sub Inline {
		my ($class, $lang) = @_;
		if ($lang ne 'C') {
			warn "Warning: Inline hints not available for $lang language
";
			return;
		}
		+{ map { (uc($_) => $self->{$_}) } qw(inc libs typemaps) };
	}

1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez