Yet Another CPAN Grep

Sub-Call-Recur ( N/NU/NUFFIN/Sub-Call-Recur-0.04.tar.gz, NUFFIN, 2009; MetaCPAN )

Sub-Call-Recur/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

Magical-Hooker-Decorate ( N/NU/NUFFIN/Magical-Hooker-Decorate-0.03.tar.gz, NUFFIN, 2009; MetaCPAN )

Magical-Hooker-Decorate/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

MP4-File ( M/MH/MHX/MP4-File-0.08.tar.gz, MHX, 2009; MetaCPAN )

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

Mac-Carbon ( C/CN/CNANDOR/Mac-Carbon-0.82.tar.gz, CNANDOR, 2009; MetaCPAN )

Mac-Carbon/Files/Files.pm ( view source; MetaCPAN )

 constants {
	my @constants;
	seek DATA, 0, 0; # this reads the entire script
	my $data = do { local $/; <DATA> };
	while ($data =~ m|=item (\w+)\s+(?:([^\n]+)\n\s+)?=cut\s+sub \1 \(\) { (\S+) }|g) {

Mac-SleepEvent ( L/LE/LEEDO/Mac-SleepEvent-0.02.tar.gz, LEEDO, 2009; MetaCPAN )

Mac-SleepEvent/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

Heap-Fibonacci-Fast ( R/RA/RANDIR/Heap-Fibonacci-Fast-0.0101.tar.gz, RANDIR, 2009; MetaCPAN )

Heap-Fibonacci-Fast/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

cmt-libchm ( L/LE/LENIK/cmt-libchm-0.01.tar.gz, LENIK, 2009; MetaCPAN )

cmt-libchm/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

B-Hooks-XSUB-CallAsOp ( N/NU/NUFFIN/B-Hooks-XSUB-CallAsOp-0.02.tar.gz, NUFFIN, 2009; MetaCPAN )

B-Hooks-XSUB-CallAsOp/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

PerlX-Range ( G/GU/GUGOD/PerlX-Range-0.05.tar.gz, GUGOD, 2009; MetaCPAN )

PerlX-Range/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

MobaSiF-Template ( B/BO/BOBPP/MobaSiF-Template-0.02.tar.gz, BOBPP, 2009; MetaCPAN )

MobaSiF-Template/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-LargeInt ( S/SA/SALVA/Sort-Key-LargeInt-0.01.tar.gz, SALVA, 2009; MetaCPAN )

Sort-Key-LargeInt/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-OID ( S/SA/SALVA/Sort-Key-OID-0.05.tar.gz, SALVA, 2009; MetaCPAN )

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

Crypt-Skip32-XS ( G/GR/GRAY/Crypt-Skip32-XS-0.06.tar.gz, GRAY, 2009; MetaCPAN )

Crypt-Skip32-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

Net-Drizzle ( T/TO/TOKUHIROM/Net-Drizzle-0.07.tar.gz, TOKUHIROM, 2009; MetaCPAN )

Net-Drizzle/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-Ncap ( M/MS/MSISK/Net-Ncap-1.01.tar.gz, MSISK, 2009; MetaCPAN )

Net-Ncap/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

POD2-IT ( E/EN/ENRYS/POD2-IT-0.13.tar.gz, ENRYS, 2009; MetaCPAN )

POD2-IT/IT/perlfaq5.pod ( view source; MetaCPAN )

o. Se il
file E<egrave> giE<agrave> aperto, limitatevi ad usare questo:

    $variabile = do { local $/; <INPUT> };

Per i file ordinari potete inoltre usare la funzione read.

    read( INPUT, $varia

Outline-Lua ( A/AL/ALTREUS/Outline-Lua-0.11.tar.gz, ALTREUS, 2009; MetaCPAN )

Outline-Lua/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

Methods-CheckNames ( F/FL/FLORA/Methods-CheckNames-0.06.tar.gz, FLORA, 2009; MetaCPAN )

Methods-CheckNames/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

RPC-XML-Parser-XS ( M/MI/MIKAGE/RPC-XML-Parser-XS-0.04.tar.gz, MIKAGE, 2009; MetaCPAN )

RPC-XML-Parser-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 comment

Crypt-PBC ( J/JE/JETTERO/Crypt-PBC-0.9000.tar.gz, JETTERO, 2009; MetaCPAN )

Crypt-PBC/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