Yet Another CPAN Grep

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

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

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

URL-Google-GURL ( M/ME/MELLERY/URL-Google-GURL-0.02.tar.gz, MELLERY, 2011; MetaCPAN )

URL-Google-GURL/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/XS comm

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

Tie-Hash-LRU ( Z/ZZ/ZZZ/Tie-Hash-LRU-0.05.tar.gz, ZZZ, 2011; MetaCPAN )

Tie-Hash-LRU/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

Math-ConvexHull-MonotoneChain ( S/SM/SMUELLER/Math-ConvexHull-MonotoneChain-0.01.tar.gz, SMUELLER, 2011; MetaCPAN )

Math-ConvexHull-MonotoneChain/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

Net-OpenID-Server ( R/RO/ROBN/Net-OpenID-Server-1.09.tar.gz, ROBN, 2011; MetaCPAN )

Net-OpenID-Server/lib/Net/OpenID/Server.pm ( view source; MetaCPAN )

ldn't open key file for reading")
            unless open(KF, $mval);
        $contents = do { local $/; <KF>; };
        close KF;
    } else {
        $contents = $mval;
    }

    return $self->_fa

Algorithm-KNN-XS ( N/NE/NEIKON/Algorithm-KNN-XS-0.01001.tar.gz, NEIKON, 2011; MetaCPAN )

Algorithm-KNN-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

Crypt-DH-GMP ( D/DM/DMAKI/Crypt-DH-GMP-0.00010.tar.gz, DMAKI, 2011; MetaCPAN )

Crypt-DH-GMP/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

Runops-Recorder ( C/CL/CLAESJAC/Runops-Recorder-0.09.tar.gz, CLAESJAC, 2011; MetaCPAN )

Runops-Recorder/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

Store-Opaque ( S/SM/SMUELLER/Store-Opaque-0.03.tar.gz, SMUELLER, 2011; MetaCPAN )

Store-Opaque/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

JavaScript-JSLint ( S/SP/SPJW/JavaScript-JSLint-0.07.tar.gz, SPJW, 2011; MetaCPAN )

JavaScript-JSLint/lib/JavaScript/JSLint.pm ( view source; MetaCPAN )

ows-specific globals should be predefined'},
);



{
    my $ctx;
    my $jslint_source = do { local $/; <DATA> };

    sub _get_context {
        unless ( $ctx ) {
            $ctx = JavaScript::Runt

Parse-QTEDI ( D/DO/DONGXU/Parse-QTEDI-0.20.1.tar.gz, DONGXU, 2011; MetaCPAN )

Parse-QTEDI/lib/Parse/QTEDI.pm ( view source; MetaCPAN )

ction to productions
#$::RD_AUTOACTION = 1;

$::RD_DEBUG = $DEBUG ? 1 : 0;

my $grammar = do { local $/; <DATA> };
$parser = Parse::RecDescent::->new($grammar);

1;
__DATA__
# focus on:
# Level 1: cla

Linux-DVB-DVBT-Advert ( S/SD/SDPRICE/Linux-DVB-DVBT-Advert-0.04.tar.gz, SDPRICE, 2011; MetaCPAN )

Linux-DVB-DVBT-Advert/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

Linux-DVB-DVBT-TS ( S/SD/SDPRICE/Linux-DVB-DVBT-TS-0.08.tar.gz, SDPRICE, 2011; MetaCPAN )

Linux-DVB-DVBT-TS/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

Module-Package ( I/IN/INGY/Module-Package-0.30.tar.gz, INGY, 2011; MetaCPAN )

Module-Package/lib/Module/Install/Package.pm ( view source; MetaCPAN )

  open META, 'META.yml' or die "Can't open 'META.yml' for input:\n$!";
        my $meta = do { local $/; <META> };
        close META;
        $meta =~ /^module_name: (\S+)$/m
            or die "Can'

Crypt-OTR ( R/RE/REVMISCHA/Crypt-OTR-0.08.tar.gz, REVMISCHA, 2011; MetaCPAN )

Crypt-OTR/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

Image-SubImageFind ( C/CT/CTRONDLP/Image-SubImageFind-0.03.tar.gz, CTRONDLP, 2011; MetaCPAN )

Image-SubImageFind/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