view release on metacpan or  search on metacpan

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

# Writer.pm
my $ESCAPE_KEY  = qr{ (?: ^\W ) | $ESCAPE_CHAR }x;
        $val =~ s/ ( [\x00-\x1f] ) / '\\' . $UNPRINTABLE[ ord($1) ] /gex;

# lib/perl5/5.10/Term/*
# lib/perl5/5.10/Test/*
# Tester.pm
        $check = "/\Q$1\E#\\s+\Q$2\E.*?\\n?.*?\Qat $3\E line \Q$4\E.*\\n?/";
        $check = "\Q$check\E" unless( $check =~ s,^/(.*)/$,$1, or ref $check );
        return 0 unless $got =~ s/^$check//;
            $gotend    =~ s/\n/$reset\n$red/g;

# lib/perl5/5.10/Text/*
# Balanced.pm
			push @pat, "$del(?:[^$del]*(?:(?:$del$del)[^$del]*)*)$del";
			push @pat, "$del(?:[^$esc$del]*(?:$esc.[^$esc$del]*)*)$del";
		unless $$textref =~ m/\G($pre)($pat)/gc;
		unless ($$textref =~ m/ \Q$initial\E [^\\$initial]* (\\.[^\\$initial]*)* \Q$initial\E /gcsx)
		$$textref =~ /\G$ldel1[^\\$ldel1]*(\\.[^\\$ldel1]*)*$ldel1/gcs

# lib/perl5/5.10/Thread/*
# lib/perl5/5.10/Tie/*
# Hash.pm
	warnings::warnif("WARNING: calling ${pkg}->new since ${pkg}->TIEHASH is missing");
# SubstrHash.pm
    croak("Table is full ($tsize->[0] elements)") if $$self[5] > $tsize->[0];
# File.pm
my %good_opt = map {$_ => 1, "-$_" => 1}
    croak "usage: tie \@array, $_[0], filename, [option => value]...";
    _ci_warn("rec 0: offset <$self->{offsets}[0]> s/b 0!");
    _ci_warn("ad_history has bad length <@{$self->{ad_history}}>");

# lib/perl5/5.10/Time/*
# lib/perl5/5.10/Unicode/*
# lib/perl5/5.10/unicore/*
# Collate.pm
    return if defined $self->{undefName} && $name =~ /$self->{undefName}/;

# lib/perl5/5.10/User/*
# lib/perl5/vendor_perl/5.10/Archive/*
# MemberRead.pm
            && $self->{buffer} =~ s/^(.*?)$sep//s
# Archive.pm
    return grep { $_->fileName() =~ /$pattern/ } $self->members();
        else { $archiveName =~ s{$pattern}{$dest} }
      $pred ? sub { m{$pattern} && &$pred } : sub { m{$pattern} && -r };

# lib/perl5/vendor_perl/5.10/auto/*
# lib/perl5/vendor_perl/5.10/Bundle/*
# lib/perl5/vendor_perl/5.10/common/*
# 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': $!");
            or $CPAN::Frontend->mydie("Could not rename '$sfile.$$' to '$sfile': $!\n");
        rename $aslocal, "$aslocal.bak$$";
    $self->debug("Themethod[$Themethod]reordered[@reordered]") if $CPAN::DEBUG;
        $self->debug("synth. urllist[@urllist]") if $CPAN::DEBUG;
            CPAN->debug("ret[$ret]aslocal[$aslocal]") if $CPAN::DEBUG;
            my($system) =
                "$chdir$funkyftp$src_switch \"$url\" $devnull$stdout_redir";
                my($system) = "$funkyftp$src_switch \"$url.gz\" $devnull > $asl_gz";
# HandleConfig.pm
            @report = map {"\t$_ \[$v->[$_]]\n"} 0..$#$v;
            CPAN->debug("INC{'$config'}[$INC{$config}]") if $CPAN::DEBUG;
# Reporter.pm
    $fh->print( map { "$_ $prereqs{$_}\n" } keys %prereqs );
    my $prereq_result = qx/$perl $version_finder < $prereq_input/;
# Shell.pm
                    CPAN::Shell->expand_by_method('CPAN::Author',['id'],"/$rau/");
                        push @bbase, "$bbase\::$entry";
# Tarzip.pm
            $system = qq{$tarcommand x${tar_verb}f "$file"};

# lib/perl5/vendor_perl/5.10/Data/*
# Compare.pm
    (ref($y) && exists($been_there{"$y-$ypos-$yparent"}) && $been_there{"$y-$ypos-$yparent"} > 1)
        $been_there{\@x."-$xpos-$xparent"}--;

# lib/perl5/vendor_perl/5.10/Devel/*
# lib/perl5/vendor_perl/5.10/Error/*
# lib/perl5/vendor_perl/5.10/File/*
# GlobMapper.pm
    while ($string =~ s/(.*?)$noPreBS(,|$matchMetaRE)//)
            $out .= "$1)" ;
    $self->{InputGlob} =~ s/$noPreBS[\(\)]//g;
# Rule.pm
            ? map { [ ( ref $_ ? $_ : qr/$_/ ) => 0 ] } @$_
    my $sub = eval "$code" or die "compile error '$code' $@";
            "\$subs{'$key'}->(\@args) # $_->{rule}\n";
# Darwin.pm
    $path =~ s/^\Q$my_home/$users_home/;

# lib/perl5/vendor_perl/5.10/HTML/*
# lib/perl5/vendor_perl/5.10/HTTP/*
# 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";