Yet Another CPAN Grep

CPANfile-Parse-PPI ( P/PE/PERLSRVDE/CPANfile-Parse-PPI-0.06.tar.gz, PERLSRVDE, 2022; MetaCPAN )

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

oad it:

    use CPANfile::Parse::PPI -strict;
    use Data::Printer;

    my $required = do { local $/; <DATA> };
    my $cpanfile = CPANfile::Parse::PPI->new( \$required );
    
    my $modules = $c

Win32-Elevate ( S/SU/SUBJUT/Win32-Elevate-0.01.tar.gz, SUBJUT, 2022; MetaCPAN )

Win32-Elevate/ppport.h ( view source; MetaCPAN )

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

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

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

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

  # Temporarily remove C/XS

App-MonM ( A/AB/ABALAMA/App-MonM-1.09.tar.gz, ABALAMA, 2022; MetaCPAN )

App-MonM/lib/App/MonM/ConfigSkel.pm ( view source; MetaCPAN )

ipart pool of files
    my $self = shift;
    my $pos =  tell DATA;
    my $data = scalar(do { local $/; <DATA> });
    seek DATA, $pos, 0;
    $self->{pools}{(SIGNATURE)} = $data;
    $self->maybe::n

CTKlib ( A/AB/ABALAMA/CTKlib-2.09.tar.gz, ABALAMA, 2022; MetaCPAN )

CTKlib/lib/CTK/Skel/Regular.pm ( view source; MetaCPAN )

urn 1;
}
sub pool {
    my $self = shift;
    my $pos =  tell DATA;
    my $data = scalar(do { local $/; <DATA> });
    seek DATA, $pos, 0;
    $self->{pools}{(SIGNATURE)} = $data;
    $self->maybe::n

WWW-Form-UrlEncoded-XS ( K/KA/KAZEBURO/WWW-Form-UrlEncoded-XS-0.28.tar.gz, KAZEBURO, 2022; MetaCPAN )

WWW-Form-UrlEncoded-XS/lib/WWW/Form/UrlEncoded/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

Thread-Csp ( L/LE/LEONT/Thread-Csp-0.009.tar.gz, LEONT, 2022; MetaCPAN )

Thread-Csp/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

Filter ( R/RU/RURBAN/Filter-1.64.tar.gz, RURBAN, 2022; MetaCPAN )

Filter/Call/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

B-Hooks-AtRuntime ( B/BM/BMORROW/B-Hooks-AtRuntime-8.tar.gz, BMORROW, 2022; MetaCPAN )

B-Hooks-AtRuntime/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

Alien-LibreSSL ( P/PL/PLICEASE/Alien-LibreSSL-0.06.tar.gz, PLICEASE, 2022; MetaCPAN )

Alien-LibreSSL/patch/libressl-2.6.2.pl ( view source; MetaCPAN )

rict;
use warnings;
use Text::Patch qw( patch );
use Path::Tiny qw( path );

my $p = eval do { local $/; <DATA> };
die $@ if $@;

foreach my $filename (sort keys %$p)
{
  my $diff = $p->{$filename};

Win32-Getppid ( P/PL/PLICEASE/Win32-Getppid-0.06.tar.gz, PLICEASE, 2022; MetaCPAN )

Win32-Getppid/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

JavaScript-Embedded ( C/CA/CAVAC/JavaScript-Embedded-2.7.2.tar.gz, CAVAC, 2022; MetaCPAN )

JavaScript-Embedded/lib/JavaScript/Embedded/C/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

JSON-JQ ( D/DO/DONGXU/JSON-JQ-0.09.tar.gz, DONGXU, 2022; MetaCPAN )

JSON-JQ/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

Linux-WireGuard ( F/FE/FELIPE/Linux-WireGuard-0.03.tar.gz, FELIPE, 2022; MetaCPAN )

Linux-WireGuard/easyxs/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-SpeedyFx ( S/SY/SYP/Text-SpeedyFx-0.014.tar.gz, SYP, 2022; MetaCPAN )

Text-SpeedyFx/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-Dropbear ( A/AT/ATRODO/Net-Dropbear-0.16.tar.gz, ATRODO, 2022; MetaCPAN )

Net-Dropbear/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-BLAKE3 ( B/BL/BLGL/Digest-BLAKE3-0.002.tar.gz, BLGL, 2022; MetaCPAN )

Digest-BLAKE3/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

HTTP-XSHeaders ( X/XS/XSAWYERX/HTTP-XSHeaders-0.400005.tar.gz, XSAWYERX, 2022; MetaCPAN )

HTTP-XSHeaders/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

HTML-Valid ( B/BK/BKB/HTML-Valid-0.09.tar.gz, BKB, 2022; MetaCPAN )

HTML-Valid/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

Linux-PipeMagic ( D/DL/DLAMBLEY/Linux-PipeMagic-0.05.tar.gz, DLAMBLEY, 2022; MetaCPAN )

Linux-PipeMagic/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

Package-Stash-XS ( E/ET/ETHER/Package-Stash-XS-0.30.tar.gz, ETHER, 2022; MetaCPAN )

Package-Stash-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