view release on metacpan or  search on metacpan

tools/perl-test-interpolation.pl.txt  view on Meta::CPAN

# lib/perl5/vendor_perl/5.10/Compress/*
# lib/perl5/vendor_perl/5.10/Config/*
# Tiny.pm
		$contents .= "[$section]\n" unless $section eq '_';
			$contents .= "$property=$block->{$property}\n";
# V.pm
		$config{version} = "$rel.$vers.$subvers";
    my $pv = qx[$^X -V];

# lib/perl5/vendor_perl/5.10/CPAN/*
# Distroprefs.pm
        my ($ext) = /\.($possible_ext)$/ or redo;
    exists $match->{$_[1]} || exists $match->{"not_$_[1]"}
        die "Error in Distroprefs pattern qr{$re}\n$@";
    return $data =~ /$qr/;
# FirstTime.pm
    my(@path) = split /$Config{'path_sep'}/, $ENV{'PATH'};
        $CPAN::Frontend->myprint(" <$item>\n");
                $CPAN::Frontend->myprint(qq{Trying to overwrite $mby\n});
    CPAN->debug("picklist('$items','$prompt','$default','$require_nonempty',".
                "'$empty_warning')") if $CPAN::DEBUG;
            @u = map ("$_ ($bare_country)", @u)
# FTP.pm
    open $fh, "+>>$file" or $CPAN::Frontend->mydie("Could not open '$file': $!");