Yet Another CPAN Grep

String-MMM ( J/JM/JMERELO/String-MMM-v0.0.3.tar.gz, JMERELO, 2013; MetaCPAN )

String-MMM/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-GSM ( F/FR/FROLLER/Audio-GSM-0.04.tar.gz, FROLLER, 2013; MetaCPAN )

Audio-GSM/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

List-MergeSorted-XS ( A/AT/ATHOMASON/List-MergeSorted-XS-1.06.tar.gz, ATHOMASON, 2013; MetaCPAN )

List-MergeSorted-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 comment

Debug-Runopt ( D/DE/DEBASHISH/Debug-Runopt-1.01.tar.gz, DEBASHISH, 2013; MetaCPAN )

Debug-Runopt/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

NoSQL-PL2SQL ( T/TQ/TQISJIM/NoSQL-PL2SQL-1.21.tar.gz, TQISJIM, 2013; MetaCPAN )

NoSQL-PL2SQL/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-IP-Util ( D/DE/DEBASHISH/Net-IP-Util-1.03.tar.gz, DEBASHISH, 2013; MetaCPAN )

Net-IP-Util/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

Mojo-Base-XS ( Y/YK/YKO/Mojo-Base-XS-0.07.tar.gz, YKO, 2013; MetaCPAN )

Mojo-Base-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

Mail-DMARC-opendmarc ( S/SH/SHARI/Mail-DMARC-opendmarc-0.11.tar.gz, SHARI, 2013; MetaCPAN )

Mail-DMARC-opendmarc/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

Hash-Spy ( S/SA/SALVA/Hash-Spy-0.01.tar.gz, SALVA, 2013; MetaCPAN )

Hash-Spy/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

Fcntl-Packer ( S/SA/SALVA/Fcntl-Packer-0.03.tar.gz, SALVA, 2013; MetaCPAN )

Fcntl-Packer/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-hiredis ( N/NE/NEOPHENIX/Redis-hiredis-0.11.0.tar.gz, NEOPHENIX, 2013; MetaCPAN )

Redis-hiredis/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

POSIX-RT-Semaphore ( M/MJ/MJP/POSIX-RT-Semaphore-0.05_02.tar.gz, MJP, 2013; MetaCPAN )

POSIX-RT-Semaphore/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

URL-Google-GURL ( M/ME/MELLERY/URL-Google-GURL-0.03.tar.gz, MELLERY, 2013; 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

TryCatch ( A/AS/ASH/TryCatch-1.003002.tar.gz, ASH, 2013; MetaCPAN )

TryCatch/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

CGI-Application-PhotoGallery ( B/BR/BRICAS/CGI-Application-PhotoGallery-0.16.tar.gz, BRICAS, 2013; MetaCPAN )

CGI-Application-PhotoGallery/lib/CGI/Application/PhotoGallery.pm ( view source; MetaCPAN )

( PHOTO, $path ) or die "ERROR: Cannot open $path: $!";
    binmode PHOTO;
    my $data = do { local $/; <PHOTO> };
    close( PHOTO );

    $self->header_props(
        {   -type          => $self->m

Algorithm-TrunkClassifier ( W/WO/WOLFTOWER/Algorithm/TrunkClassifier_v101/Algorithm-TrunkClassifier-v1.0.1.tar.gz, WOLFTOWER, 2013; MetaCPAN )

Algorithm-TrunkClassifier/Algorithm/TrunkClassifier/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

Config-Augeas ( R/RA/RAPHINK/Config-Augeas-1.000.tar.gz, RAPHINK, 2013; MetaCPAN )

Config-Augeas/lib/Config/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

Text-KyTea ( P/PA/PAWAPAWA/Text-KyTea-0.44.tar.gz, PAWAPAWA, 2013; MetaCPAN )

Text-KyTea/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

Authen-Krb5-Admin ( S/SJ/SJQUINNEY/Authen-Krb5-Admin-0.17.tar.gz, SJQUINNEY, 2013; MetaCPAN )

Authen-Krb5-Admin/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

Plack-Middleware-UnicodePictogramFallback-TypeCast ( S/SO/SONGMU/Plack-Middleware-UnicodePictogramFallback-TypeCast-0.02.tar.gz, SONGMU, 2013; MetaCPAN )

Plack-Middleware-UnicodePictogramFallback-TypeCast/tool/create_emoticon_map.pl ( view source; MetaCPAN )

res->content);
my $docomo_map = $hash->{docomo};

my $map = Dumper $docomo_map;
my $tmpl = do {local $/; <DATA>};
my $content = eval qq{my \$map = qq{$map}; "$tmpl"};

my $file = 'lib/Plack/Middleware