Yet Another CPAN Grep

Template-Magic ( S/SK/SKNPP/Template-Magic-1.4.tar.gz, SKNPP, 2012; MetaCPAN )

Template-Magic/lib/Template/Magic.pm ( view source; MetaCPAN )

e memory.

Don't do this:

    open TEMPLATE, '/path/to/big_template' ;
    $big_template = do{local $/; <TEMPLATE>} ;
    $output = $tm->output(\$big_template);
    print $$output;

You can save a lo

Speech-eSpeak ( H/HG/HGNENG/Speech-eSpeak-0.4.tar.gz, HGNENG, 2012; MetaCPAN )

Speech-eSpeak/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment

Perlbal ( D/DO/DORMANDO/Perlbal-1.80.tar.gz, DORMANDO, 2012; MetaCPAN )

Perlbal/lib/Perlbal/Test.pm ( view source; MetaCPAN )

ontent {
    my $file = shift;
    my $ct;
    open (F, $file) or return undef;
    $ct = do { local $/; <F>; };
    close F;
    return $ct;
}

=head1 I<foreach_aio($callback)>

Set the server into e

Qt4 ( C/CB/CBUREL/Qt4-0.99.0.tar.bz2, CBUREL, 2012; MetaCPAN )

Qt4/qtcore/src/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment

Image-Info-XS ( J/JU/JUNKER/Image-Info-XS-0.1.8.tar.gz, JUNKER, 2012; MetaCPAN )

Image-Info-XS/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

overload-substr ( P/PE/PEVANS/overload-substr-0.03.tar.gz, PEVANS, 2012; MetaCPAN )

overload-substr/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Archive-Extract-Libarchive ( L/LB/LBROCARD/Archive-Extract-Libarchive-0.38.tar.gz, LBROCARD, 2012; MetaCPAN )

Archive-Extract-Libarchive/lib/Archive/Extract/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Clone-Fast ( J/JJ/JJORE/Clone-Fast-0.96.tar.gz, JJORE, 2012; MetaCPAN )

Clone-Fast/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment

libPam-Perl ( B/BH/BHILDRED/libPam-Perl-0.008.tar.gz, BHILDRED, 2012; MetaCPAN )

libPam-Perl/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Audio-C4Stream-Mixer ( C/CF/CFORPC/Audio-C4Stream-Mixer-1.01.tar.gz, CFORPC, 2012; MetaCPAN )

Audio-C4Stream-Mixer/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

XML-RPC-Fast ( M/MO/MONS/XML-RPC-Fast-0.8.tar.gz, MONS, 2012; MetaCPAN )

XML-RPC-Fast/README.pod ( view source; MetaCPAN )

code
        #internal_encoding => 'koi8-r', # not supported for now
    );
    my $xml = do { local $/; <STDIN> };
    length($xml) == $ENV{CONTENT_LENGTH} or warn "Content-Length differs from actual

Text-Tokenizer ( S/SA/SAMSK/Text-Tokenizer-0.4.6.tar.gz, SAMSK, 2012; MetaCPAN )

Text-Tokenizer/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment

XML-RPC-Fast ( M/MO/MONS/XML-RPC-Fast-0.8.tar.gz, MONS, 2012; MetaCPAN )

XML-RPC-Fast/lib/XML/RPC/Fast.pm ( view source; MetaCPAN )

code
        #internal_encoding => 'koi8-r', # not supported for now
    );
    my $xml = do { local $/; <STDIN> };
    length($xml) == $ENV{CONTENT_LENGTH} or warn "Content-Length differs from actual

Thread-IID ( W/WR/WROG/Thread-IID-0.04.tar.gz, WROG, 2012; MetaCPAN )

Thread-IID/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Git-XS ( I/IN/INGY/Git-XS-0.02.tar.gz, INGY, 2011; MetaCPAN )

Git-XS/xs/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Redis-Parser-XS ( Z/ZZ/ZZZ/Redis-Parser-XS-0.02.tar.gz, ZZZ, 2011; MetaCPAN )

Redis-Parser-XS/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

SOOT ( S/SM/SMUELLER/SOOT-0.17.tar.gz, SMUELLER, 2011; MetaCPAN )

SOOT/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Dendral-HTTP-Response ( J/JU/JUNKER/Dendral-HTTP-Response-0.1.0.tar.gz, JUNKER, 2011; MetaCPAN )

Dendral-HTTP-Response/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # Temporarily remove C/XS comm

Dendral-HTTP-Request ( J/JU/JUNKER/Dendral-HTTP-Request-0.1.5.tar.gz, JUNKER, 2011; MetaCPAN )

Dendral-HTTP-Request/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment

MP3-Cut-Gapless ( A/AG/AGRUNDMA/MP3-Cut-Gapless-0.03.tar.gz, AGRUNDMA, 2011; MetaCPAN )

MP3-Cut-Gapless/include/ppport.h ( view source; MetaCPAN )

o read from $filename: $!\n";
    next;
  }

  info("Scanning $filename ...");

  my $c = do { local $/; <IN> };
  close IN;

  my %file = (orig => $c, changes => 0);

  # temporarily remove C comment