view release on metacpan or  search on metacpan

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

# Common.pm
		 qq(Content-Disposition: form-data; name="$k"$CRLF$CRLF$v));
	push(@parts, "$CRLF--$boundary--$CRLF");
# Auth.pm
			$val .= "$sep$k=$v";
# ETag.pm
	        push(@res, qq($weak"$etag"));
# Microsoft.pm
		warn "$cookie_index ['$sig' $size] does not seem to contain cookies";
		if ($data =~ /Cookie\:\Q$user_name\E\@([\x21-\xFF]+).*?((?:\Q$user_name\E|\Q$user_name2\E)\@[\x21-\xFF]+\.txt)/)
# Negotiate.pm
		    print "      $pv = $accept{$type}{$name}{$pv}\n";
	    print "  (q=$q, mbx=$mbx, qe=$qe, qc=$qc, ql=$ql, qs=$qs)\n";
# Cookies.pm
    $_[0] =~ s/%([0-9a-fA-F][0-9a-fA-F])/
	         $x = uc($1);
                 $x eq "2F" || $x eq "25" ? "%$x" :
                                            pack("C", hex($x));
              /eg;
    $_[0] =~ s/([\0-\x20\x7f-\xff])/sprintf("%%%02X",ord($1))/eg;

# lib/perl5/vendor_perl/5.10/IO/*
# lib/perl5/vendor_perl/5.10/IPC/*
# ProfLogger.pm
    open PROFILE, ">$self->{Destination}"
        or die "$!: $self->{Destination}\n";

# lib/perl5/vendor_perl/5.10/JSON/*
# PP.pm
        $arg =~ s/([\x22\x5c\n\r\t\f\b])/$esc{$1}/g;
        $arg =~ s/([\x00-\x08\x0b\x0e-\x1f])/'\\u00' . unpack('H2', $1)/eg;

# lib/perl5/vendor_perl/5.10/LWP/*
# UserAgent.pm
       print STDERR " (${t}s)" if $t;
        print STDERR "$ANI[$self->{progress_ani}++]\b";
        print STDERR "$p\b\b\b\b";
# Digest.pm
	push(@pairs, "$_=" . qq("$resp{$_}"));
# gopher.pm
	$tmp .= qq{<A HREF="$url">$pretty</A><BR>\n};
# http10.pm
	die "Can't connect to $host:$port ($@)";

# lib/perl5/vendor_perl/5.10/Metabase/*
# Hash.pm
  Carp::croak "missing required keys for $class\: @missing\n" if @missing;
# metabase.pm
my $guid_re = qr(\A$hex{8}-$hex{4}-$hex{4}-$hex{4}-$hex{12}\z)i;
  my ($subtype) = $self =~ m{\A$scheme:([^:]+)};
# 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)
                next if $file =~ /(?:^|${pathsep})Term${pathsep}ReadLine\.pm$/;
                next if $file =~ /(?:^|${pathsep})Tcl${pathsep}Tk\W/;
                unshift(@INC, "$_/$archname")      if -d "$_/$archname";
                unshift(@INC, "$_/$ver/$archname") if -d "$_/$ver/$archname";
  if (/^\s* use \s+ $loader(?!\:) \b \s* (.*)/sx) {
    $subdir =~ s/\$CurrentPackage/$CurrentPackage/;
    $line =~ s/^(.*?)((?:[\r\n]+__(?:DATA|END)__[\r\n]+)|$)/
use Module::ScanDeps::DataFeed '$fname.out';
sub {
$1
}
$2/s;
        $newkey =~ s"^(?:(?:$inc)/?)""sg if File::Spec->file_name_is_absolute($newkey);
        $key =~ s"^(?:(?:$inc)/?)""s;
    return 'shared'   if $name =~ /\.$dlext$/i;

# lib/perl5/vendor_perl/5.10/Net/*
# IP.pm
            $current =~ s/0{$nbits}$/$add/;
    $ip =~ s/
	(^|:)        # Find beginning or ':' -> $1
	0+           # 1 or several 0s
	(?=          # Look-ahead
	[a-fA-F\d]+  # One or several Hexs
	(?::|$))     # ':' or end
	/$1/gx;
# Telnet.pm
    @isa = eval "\@${class}::ISA";

# lib/perl5/vendor_perl/5.10/Number/*
# lib/perl5/vendor_perl/5.10/PAR/*
# Dist.pm
    $args{dist} =~ s{^cpan://((([a-zA-Z])[a-zA-Z])[-_a-zA-Z]+)/}
		    {http://www.cpan.org/modules/by-authors/id/\U$3/$2/$1\E/};
    $file =~ s/([^\w\.])/$escapes{$1}/g;
            $e =~ /^$version$/o
		if ($e =~ /^$version|any_version$/) {

# lib/perl5/vendor_perl/5.10/Pod/*
# Simple.pm
    DEBUG > 2 and print " Tolerating $$para[2] as =item *\\n\\n$1\n";
    DEBUG and print "Applying precooked treelet hack to $_[0][0]\n";
        DEBUG > 3 and print "   Merging ", $i-1,
         ":[$treelet->[$i-1]] and $i\:[$treelet->[$i]]\n";
      DEBUG > 4 and print "  Noting child $i : $treelet->[$i][0]<...>\n";
        DEBUG > 4 and print "    Renaming $was node to $dynasty[-1]\n";
      DEBUG > 1 and print "Nixing Z node @{$treelet->[$i]}\n";
         print "    Peering at L-content text bit \"$ell_content[$j]\" for a '|'.\n";
# Coverage.pm
        $sym =~ s/$self->{package}:://;