Yet Another CPAN Grep

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

CTKlib/lib/CTK/Skel/Common.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

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

CTKlib/lib/CTK/Skel/Module.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

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

CTKlib/lib/CTK/Skel/Daemon.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

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

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

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

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

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

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

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

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

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

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

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

autocroak ( L/LE/LEONT/autocroak-0.008.tar.gz, LEONT, 2022; MetaCPAN )

autocroak/lib/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-NumSeq ( K/KR/KRYDE/Math-NumSeq-75.tar.gz, KRYDE, 2022; MetaCPAN )

Math-NumSeq/devel/grep-oeis-non-ascii.pl ( view source; MetaCPAN )

nal>, <~/OEIS/*.internal.html>) {
    open FH, '<', $filename or next;
    my $contents = do { local $/; <FH> }; # slurp
    close FH or die;

    $contents =~ s{(.*)}{my $line = $1;

nal>, <~/OEIS/*.internal.html>) {
    open FH, '<', $filename or next;
    my $contents = do { local $/; <FH> }; # slurp
    close FH or die;

    $contents =~ s{(.*)}{my $line = $1;