Yet Another CPAN Grep

Image-Leptonica ( Z/ZM/ZMUGHAL/Image-Leptonica-0.04.tar.gz, ZMUGHAL, 2014; MetaCPAN )

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

Router-R3 ( C/CI/CINDY/Router-R3-0.011001.tar.gz, CINDY, 2014; MetaCPAN )

Router-R3/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-Match-Bin ( T/TO/TOMO/src/Net-IP-Match-Bin-0.14.tar.gz, TOMO, 2014; MetaCPAN )

Net-IP-Match-Bin/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

Opcodes ( R/RU/RURBAN/Opcodes-0.14.tar.gz, RURBAN, 2014; MetaCPAN )

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

Tiny-YAML ( I/IN/INGY/Tiny-YAML-0.0.9.tar.gz, INGY, 2014; MetaCPAN )

Tiny-YAML/lib/Tiny/YAML.pm ( view source; MetaCPAN )

slurp the contents
    my $contents = eval {
        use warnings FATAL => 'utf8';
        local $/;
        <$fh>
    };
    if ( my $err = $@ ) {
        $self->_error("Error reading from file '$fil

   open TEXT, $filename
        or die "Can't open '$filename' for input\n:$!";
    return do {local $/; <TEXT>}
}

sub make_tree {
    my ($self) = @_;
    my $text = $self->text
        or die "Can'

 $grammar_file
        or die "Can't open $grammar_file for input";
    my $grammar_text = do {local $/; <GRAMMAR>};
    close GRAMMAR;
    my $module = $package;
    $module =~ s!::!/!g;
    $module

Games-SMTNocturne-Demons ( D/DO/DOY/Games-SMTNocturne-Demons-0.02.tar.gz, DOY, 2014; MetaCPAN )

Games-SMTNocturne-Demons/lib/Games/SMTNocturne/Demons/FusionChart.pm ( view source; MetaCPAN )

SION = '0.02';
use strict;
use warnings;

use JSON::PP;

my %FUSION_DATA = %{ decode_json(do { local $/; <DATA> }) };
my %TYPES = %{ $FUSION_DATA{normal_fusions} };
my %SPECIAL = %{ $FUSION_DATA{speci

Games-SMTNocturne-Demons ( D/DO/DOY/Games-SMTNocturne-Demons-0.02.tar.gz, DOY, 2014; MetaCPAN )

Games-SMTNocturne-Demons/lib/Games/SMTNocturne/Demons/Demon.pm ( view source; MetaCPAN )

> 1;
# ABSTRACT: an individual demon

use JSON::PP;


my %DEMONS_BY_NAME = %{ decode_json(do { local $/; <DATA> }) };
for my $name (keys %DEMONS_BY_NAME) {
    $DEMONS_BY_NAME{$name}{name} = $name;

WKHTMLTOX-XS ( K/KW/KWAGNER/WKHTMLTOX-XS-0.01.tar.gz, KWAGNER, 2014; MetaCPAN )

WKHTMLTOX-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

XML-DifferenceMarkup ( V/VB/VBAR/XML-DifferenceMarkup-1.05.tar.gz, VBAR, 2014; MetaCPAN )

XML-DifferenceMarkup/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

Device-SaleaeLogic ( V/VI/VIKAS/Device-SaleaeLogic-0.02.tar.gz, VIKAS, 2014; MetaCPAN )

Device-SaleaeLogic/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

FFI-Raw ( A/AL/ALEXBIO/FFI-Raw-0.32.tar.gz, ALEXBIO, 2014; MetaCPAN )

FFI-Raw/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

Sort-Key-Domain ( S/SA/SALVA/Sort-Key-Domain-0.01.tar.gz, SALVA, 2014; MetaCPAN )

Sort-Key-Domain/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

Unicode-Number ( Z/ZM/ZMUGHAL/Unicode-Number-0.009.tar.gz, ZMUGHAL, 2014; MetaCPAN )

Unicode-Number/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

Digest-MurmurHash3 ( D/DM/DMAKI/Digest-MurmurHash3-0.03.tar.gz, DMAKI, 2014; MetaCPAN )

Digest-MurmurHash3/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-SimpleHisto-XS ( S/SM/SMUELLER/Math-SimpleHisto-XS-1.30.tar.gz, SMUELLER, 2014; MetaCPAN )

Math-SimpleHisto-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

Sort-Packed ( S/SA/SALVA/Sort-Packed-0.08.tar.gz, SALVA, 2014; MetaCPAN )

Sort-Packed/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

Ham-Resources-HamQTH ( C/CJ/CJUAN/Ham-Resources-HamQTH-0.0.6.tar.gz, CJUAN, 2014; MetaCPAN )

Ham-Resources-HamQTH/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

Media-LibMTP-API ( C/CJ/CJM/Media-LibMTP-API-0.04.tar.gz, CJM, 2014; MetaCPAN )

Media-LibMTP-API/lib/Media/LibMTP/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

MongoDB-Async ( N/NY/NYAKNYAN/MongoDB-Async-0.702.3.tar.gz, NYAKNYAN, 2014; MetaCPAN )

MongoDB-Async/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

Lingua-Foma ( A/AK/AKRON/Lingua-Foma-0.01_5.tar.gz, AKRON, 2014; MetaCPAN )

Lingua-Foma/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