view release on metacpan or  search on metacpan

inc/Module/Install.pm  view on Meta::CPAN

}

sub autoload {
	my $self = shift;
	my $who  = $self->_caller;
	my $cwd  = Cwd::cwd();
	my $sym  = "${who}::AUTOLOAD";
	$sym->{$cwd} = sub {
		my $pwd = Cwd::cwd();
		if ( my $code = $sym->{$pwd} ) {
			# Delegate back to parent dirs
			goto &$code unless $cwd eq $pwd;
		}
		unless ($$sym =~ s/([^:]+)$//) {
			# XXX: it looks like we can't retrieve the missing function
			# via $$sym (usually $main::AUTOLOAD) in this case.
			# I'm still wondering if we should slurp Makefile.PL to
			# get some context or not ...
			my ($package, $file, $line) = caller;
			die <<"EOT";
Unknown function is found at $file line $line.

t/script.t  view on Meta::CPAN

    has _temp_dir => (
        isa => 'Path::Class::Dir',
        coerce => 1,
        is => 'ro',
        lazy_build => 1,
    );

    sub _build__temp_dir {
        my $self = shift;
        my $parent = dir($FindBin::RealBin, 'run');
        $parent->mkpath;
        return tempdir( "testinstall-XXXXXX", DIR => $parent,
            CLEANUP => !$self->_leave_tempfiles);
    }

    has _output_data => (
        isa => 'ArrayRef[Str]',
        is => 'rw',
        default => sub { [] },
    );

    sub _get {}