Yet Another CPAN Grep

D ( Y/YO/YOITO/D-0.06.tar.gz, YOITO, 2021; MetaCPAN )

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

Monitoring-Generator-TestConfig ( N/NI/NIERLEIN/Monitoring-Generator-TestConfig-0.54.tar.gz, NIERLEIN, 2021; MetaCPAN )

Monitoring-Generator-TestConfig/lib/Monitoring/Generator/TestConfig/ShinkenInitScriptData.pm ( view source; MetaCPAN )

nary    = shift;
    our $initsource;
    if(!defined $initsource) {
       $initsource = do { local $/; <DATA> };
    }

    my $binpath = $binary;
    $binpath =~ s/^(.*)\/.*$/$1/mx;

    my $initsc

Monitoring-Generator-TestConfig ( N/NI/NIERLEIN/Monitoring-Generator-TestConfig-0.54.tar.gz, NIERLEIN, 2021; MetaCPAN )

Monitoring-Generator-TestConfig/lib/Monitoring/Generator/TestConfig/ServiceCheckData.pm ( view source; MetaCPAN )

heck;
    return($testservicecheck) if defined $testservicecheck;
    $testservicecheck = do { local $/; <DATA> };
    return($testservicecheck);
}

1;

__DATA__
#!/usr/bin/perl
# nagios: +epn

=head1

Monitoring-Generator-TestConfig ( N/NI/NIERLEIN/Monitoring-Generator-TestConfig-0.54.tar.gz, NIERLEIN, 2021; MetaCPAN )

Monitoring-Generator-TestConfig/lib/Monitoring/Generator/TestConfig/P1Data.pm ( view source; MetaCPAN )

  = shift;
    our $scriptsource;
    if(!defined $scriptsource) {
       $scriptsource = do { local $/; <DATA> };
    }
    return($scriptsource);
}

1;

__DATA__
package Embed::Persistent;

# p1.pl

Monitoring-Generator-TestConfig ( N/NI/NIERLEIN/Monitoring-Generator-TestConfig-0.54.tar.gz, NIERLEIN, 2021; MetaCPAN )

Monitoring-Generator-TestConfig/lib/Monitoring/Generator/TestConfig/InitScriptData.pm ( view source; MetaCPAN )

yout    = shift;
    our $initsource;
    if(!defined $initsource) {
       $initsource = do { local $/; <DATA> };
    }

    my $initscript = $initsource;
    $initscript =~ s/__PREFIX__/$prefix/gmx;

Monitoring-Generator-TestConfig ( N/NI/NIERLEIN/Monitoring-Generator-TestConfig-0.54.tar.gz, NIERLEIN, 2021; MetaCPAN )

Monitoring-Generator-TestConfig/lib/Monitoring/Generator/TestConfig/HostCheckData.pm ( view source; MetaCPAN )

testhostcheck;
    return($testhostcheck) if defined $testhostcheck;
    $testhostcheck = do { local $/; <DATA> };
    return($testhostcheck);
}

1;

__DATA__
#!/usr/bin/perl
# nagios: +epn

=head1 NA

URI-XSEscape ( G/GO/GONZUS/URI-XSEscape-0.002000.tar.gz, GONZUS, 2021; MetaCPAN )

URI-XSEscape/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

Tk ( S/SR/SREZIC/Tk-804.036.tar.gz, SREZIC, 2021; MetaCPAN )

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

Devel-Probe ( G/GO/GONZUS/Devel-Probe-0.000006.tar.gz, GONZUS, 2021; MetaCPAN )

Devel-Probe/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

Pod-ProjectDocs ( M/MG/MGRUNER/Pod-ProjectDocs-0.53.tar.gz, LYOKATO, 2021; MetaCPAN )

Pod-ProjectDocs/lib/Pod/ProjectDocs/ArrowImage.pm ( view source; MetaCPAN )

MIME::Base64;
use File::Basename;

__PACKAGE__->default_name('up.gif');
__PACKAGE__->data( do{ local $/; <DATA> } );
__PACKAGE__->is_bin(1);

sub tag {
    my($self, $doc) = @_;
    my($name, $path) =

Cairo ( X/XA/XAOC/Cairo-1.109.tar.gz, XAOC, 2021; MetaCPAN )

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

BSD-Socket-Splice ( B/BL/BLUHM/BSD-Socket-Splice-0.09.tar.gz, BLUHM, 2021; MetaCPAN )

BSD-Socket-Splice/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

XS-Tutorial ( D/DF/DFARRELL/XS-Tutorial-0.04.tar.gz, DFARRELL, 2020; MetaCPAN )

XS-Tutorial/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

Win32-UTCFileTime ( S/SH/SHAY/Win32-UTCFileTime-1.60.tar.gz, SHAY, 2020; MetaCPAN )

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

CDB_File ( T/TO/TODDR/CDB_File-1.05.tar.gz, TODDR, 2020; MetaCPAN )

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

PerlIO-bom ( L/LE/LEONT/PerlIO-bom-0.001.tar.gz, LEONT, 2020; MetaCPAN )

PerlIO-bom/lib/Linux/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-Fuzzy ( B/BK/BKB/Text-Fuzzy-0.29.tar.gz, BKB, 2020; MetaCPAN )

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

Tie-Hash-Indexed ( M/MH/MHX/Tie-Hash-Indexed-0.08.tar.gz, MHX, 2020; MetaCPAN )

Tie-Hash-Indexed/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

IPC-SysV ( M/MH/MHX/IPC-SysV-2.09.tar.gz, MHX, 2020; MetaCPAN )

IPC-SysV/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

true ( C/CH/CHOCOLATE/true-v1.0.2.tar.gz, CHOCOLATE, 2020; MetaCPAN )

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