Yet Another CPAN Grep

Pegex ( I/IN/INGY/Pegex-0.75.tar.gz, INGY, 2020; MetaCPAN )

Pegex/lib/Pegex/Grammar.pm ( view source; MetaCPAN )

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

sub make_tree {
    my ($self) = @_;
    # Turn off ENV debugging for grammar compil

 $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

mar_text, @rules)->to_perl;
    }
    open IN, "<", $file or die $!;
    my $module_text = do {local $/; <IN>};
    require Pegex;
    my $msg = "   # Generated/Inlined by Pegex::Grammar ($Pegex::VERS

Alt-Syntax-Kamelon-RT129134 ( C/CX/CXW/Alt-Syntax-Kamelon-RT129134-0.000001.tar.gz, CXW, 2020; MetaCPAN )

Alt-Syntax-Kamelon-RT129134/Kamelon/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

Shout ( N/NI/NIKOLAS/Shout-2.1.4.tar.gz, NIKOLAS, 2020; MetaCPAN )

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

Fl ( S/SA/SANKO/Fl-0.99.15.tar.gz, SANKO, 2020; MetaCPAN )

Fl/xs/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/XS comm

overload-open ( S/SA/SAMCV/overload-open-1.9.6.tar.gz, SAMCV, 2020; MetaCPAN )

overload-open/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

Compiler-Lexer ( G/GO/GOCCY/Compiler-Lexer-0.23.tar.gz, GOCCY, 2020; MetaCPAN )

Compiler-Lexer/gen/test_generator.pl ( view source; MetaCPAN )

pen(my $fh, '<', $filename);
    my $script = do { local $/; <$fh> };
    close $fh;
    return $script;
}

sub template {
    return do { local $/; <DATA> };
}

sub get_constants_map {
    return Loa

Geo-Coder-DAMS ( B/BO/BOKUTIN/Geo-Coder-DAMS-0.01.tar.gz, BOKUTIN, 2020; MetaCPAN )

Geo-Coder-DAMS/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

ISAL-Crypto ( B/BU/BURII/ISAL-Crypto-0.01_3.tar.gz, BURII, 2019; MetaCPAN )

ISAL-Crypto/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

Imager-Screenshot ( T/TO/TONYC/Imager-Screenshot-0.014.tar.gz, TONYC, 2019; MetaCPAN )

Imager-Screenshot/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

Gazelle ( K/KA/KAZEBURO/Gazelle-0.49.tar.gz, KAZEBURO, 2019; MetaCPAN )

Gazelle/lib/Plack/Handler/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

DDCCI ( S/SK/SKUPSY/DDCCI-0.003.tar.gz, SKUPSY, 2019; MetaCPAN )

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

MsgPack-Raw ( J/JA/JACQUESG/MsgPack-Raw-0.05.tar.gz, JACQUESG, 2019; MetaCPAN )

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

Lingua-Identify-CLD2 ( K/KN/KNI/Lingua-Identify-CLD2-0.04_1-TRIAL.tar.gz, KNI, 2019; MetaCPAN )

Lingua-Identify-CLD2/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

File-Locate-Iterator ( K/KR/KRYDE/File-Locate-Iterator-28.tar.gz, KRYDE, 2019; MetaCPAN )

File-Locate-Iterator/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

Filter-gunzip ( K/KR/KRYDE/Filter-gunzip-8.tar.gz, KRYDE, 2019; MetaCPAN )

Filter-gunzip/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-DNS-Native ( O/OL/OLEG/Net-DNS-Native-0.22.tar.gz, OLEG, 2019; MetaCPAN )

Net-DNS-Native/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-Char ( J/JK/JKUTEJ/XML-Char-0.04.tar.gz, JKUTEJ, 2019; MetaCPAN )

XML-Char/lib/XML/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

invoker ( G/GU/GUGOD/invoker-0.36.tar.gz, GUGOD, 2019; MetaCPAN )

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

Sys-Syslog ( S/SA/SAPER/Sys-Syslog-0.36.tar.gz, SAPER, 2019; MetaCPAN )

Sys-Syslog/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

MP4-LibMP4v2 ( J/JI/JIRO/MP4-LibMP4v2-0.01.tar.gz, JIRO, 2019; MetaCPAN )

MP4-LibMP4v2/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