Yet Another CPAN Grep

DBIx-QueryByName ( E/ER/ERWAN/DBIx-QueryByName-0.18.tar.gz, ERWAN, 2010; MetaCPAN )

DBIx-QueryByName/lib/DBIx/QueryByName.pm ( view source; MetaCPAN )

    open FP, "< $file" or $log->logcroak("failed to open [$file]: $!");
        my $xml = do { local $/; <FP> };
        close FP;

        DBIx::QueryByName::FromXML::load( $self->_query_pool, $sessi

IPC-ScoreBoard ( O/OP/OPI/IPC-ScoreBoard-0.05.tar.gz, OPI, 2010; MetaCPAN )

IPC-ScoreBoard/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-MotionSensor ( R/RG/RGE/Mac-MotionSensor-0.02.tar.gz, RGE, 2010; MetaCPAN )

Mac-MotionSensor/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-Template-Library ( O/OP/OPI/Text-Template-Library-0.04.tar.gz, OPI, 2010; MetaCPAN )

Text-Template-Library/lib/Text/Template/Base.pm ( view source; MetaCPAN )

;
  unless (open F, $fn) {
    $ERROR = "Couldn't open file $fn: $!";
    return undef;
  }
  local $/;
  <F>;
}

sub _is_clean {
  my $z;
  eval { ($z = join('', @_)), eval '#' . substr($z,0,0); 1 }

CMS-MediaWiki ( R/RE/RETOH/CMS/CMS-MediaWiki-0.8014.tar.gz, RETOH, 2010; MetaCPAN )

CMS-MediaWiki/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

Ser-BinRPC ( T/TM/TMA/Ser-BinRPC-0.01.tar.gz, TMA, 2010; MetaCPAN )

Ser-BinRPC/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

Linux-Pdeathsig ( Z/ZE/ZEROHP/Linux-Pdeathsig-0.10.tar.gz, ZEROHP, 2010; MetaCPAN )

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

Socket-Linux ( S/SA/SALVA/Socket-Linux-0.01.tar.gz, SALVA, 2010; MetaCPAN )

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

File-fgets ( M/MS/MSCHWERN/File-fgets-v0.0.4.tar.gz, MSCHWERN, 2010; MetaCPAN )

File-fgets/lib/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

Plex ( S/SC/SCIO/Plex.tar.gz, SCIO, 2010; MetaCPAN )

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

GSSAPI ( A/AG/AGROLMS/GSSAPI-0.28.tar.gz, AGROLMS, 2010; MetaCPAN )

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

Language-Befunge-Vector-XS ( J/JQ/JQUELIN/Language-Befunge-Vector-XS-1.1.1.tar.gz, JQUELIN, 2010; MetaCPAN )

Language-Befunge-Vector-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

Digest-FP56x1xor ( J/JN/JNW/Digest-FP56x1xor-0.15.tar.gz, JNW, 2010; MetaCPAN )

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

Text-Fracture ( J/JN/JNW/Text-Fracture-1.02.tar.gz, JNW, 2010; MetaCPAN )

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

Internals-GraphArenas ( J/JJ/JJORE/Internals-GraphArenas-0.01.tar.gz, JJORE, 2010; MetaCPAN )

Internals-GraphArenas/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

FTDI-D2XX ( M/MV/MVOELKER/FTDI/FTDI-D2XX-0.06.tar.gz, MVOELKER, 2010; MetaCPAN )

FTDI-D2XX/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

Hook-Modular ( M/MA/MARCEL/Hook-Modular-1.101050.tar.gz, MARCEL, 2010; MetaCPAN )

Hook-Modular/lib/Hook/Modular/Test.pm ( view source; MetaCPAN )

 t/45blah.t

  use Hook::Modular::Test ':all';

  my $config_filename = write_config_file(do { local $/; <DATA> });

  sub run {
      # ...
  }

  __DATA__
  global:
    log:
      level: error
  ...

Linux-Personality ( S/SC/SCHWIGON/linux-personality/Linux-Personality-0.01.tar.gz, SCHWIGON, 2010; MetaCPAN )

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

Regexp-MinLength ( L/LM/LMETCALF/Regexp-MinLength-0.03.tar.gz, LMETCALF, 2010; MetaCPAN )

Regexp-MinLength/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

BSD-devstat ( K/KU/KURIYAMA/BSD-devstat-0.02.tar.gz, KURIYAMA, 2010; MetaCPAN )

BSD-devstat/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