view release on metacpan or  search on metacpan

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

# commit.pm
  my ($string) = $self =~ m{\A$scheme:///$subtype/(.+)\z};
  return "http://${host}/perl.git/" . $self->sha1;

# lib/perl5/vendor_perl/5.10/Module/*
# DataFeed.pm
    print FH join(',', map("\n\t'$_'", map {s/\\$/\\\\/; $_} @inc));
        my $file = "$dir/auto/$modpname/$modfname.$dl_ext";
# Signature.pm
    return "$scheme://$KeyServer:$KeyServerPort";
    my @verify = `gpg --batch --verify $SIGNATURE`;
        while (`gpg --batch --keyserver=$keyserver --search-keys '$key_name'`) {
            if (/\Q$key_name\E/) {
        $plaintext .= "@{$digest->{$file}} $file\n";
        require "Digest/$algorithm/PurePerl.pm"; "Digest::$algorithm\::PurePerl"->new
            $file =~ s!(\.(\w|-)+)!substr ($1,0,4)!ge;
            $file =~ s!((\w|-)+)!substr ($1,0,8)!ge;
# ScanDeps.pm
use constant dl_ext  => ".$Config{dlext}";
                @files = map "$dir/Is/$_->{name}", _glob_in_inc("$dir/Is")
                    push @files, "$dir/$subdir/$_->{name}";
        (@_ and $_[0] =~ /^(?:$Keys)$/o) ? @_ : (files => [@_], recurse => 1)