Yet Another CPAN Grep

App-Stacktrace ( J/JJ/JJORE/App-Stacktrace-0.09.tar.gz, JJORE, 2011; MetaCPAN )

App-Stacktrace/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-YAJL ( L/LB/LBROCARD/JSON-YAJL-0.10.tar.gz, LBROCARD, 2011; MetaCPAN )

JSON-YAJL/lib/JSON/YAJL/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

AnyEvent-HTTPD ( E/EL/ELMEX/AnyEvent-HTTPD-0.93.tar.gz, ELMEX, 2011; MetaCPAN )

AnyEvent-HTTPD/lib/AnyEvent/HTTPD/Request.pm ( view source; MetaCPAN )

in' }, 'not found']
               );

         $req->respond ({ content => ['image/png', do { local $/; <IMG> }] });
      }
   );

B<How to send large files:>

For longer responses you can give a ca

Math-ThinPlateSpline ( S/SM/SMUELLER/Math-ThinPlateSpline-0.06.tar.gz, SMUELLER, 2011; MetaCPAN )

Math-ThinPlateSpline/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

smartmatch-engine-core ( D/DO/DOY/smartmatch-engine-core-0.02-TRIAL.tar.gz, DOY, 2011; MetaCPAN )

smartmatch-engine-core/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

threads-tbb ( S/SA/SAMV/threads-tbb-0.04.tar.gz, SAMV, 2011; MetaCPAN )

threads-tbb/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

Thrift-XS ( A/AG/AGRUNDMA/Thrift-XS-1.04.tar.gz, AGRUNDMA, 2011; MetaCPAN )

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

Image-LibRaw ( T/TO/TOKUHIROM/Image-LibRaw-0.03.tar.gz, TOKUHIROM, 2011; MetaCPAN )

Image-LibRaw/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

App-SD ( S/SP/SPANG/App-SD-0.75.tar.gz, SPANG, 2011; MetaCPAN )

App-SD/lib/App/SD/CLI/Command.pm ( view source; MetaCPAN )

t!";
    } else {
        print "Please type your $args{type} and press ctrl-d.\n";
        $content = do { local $/; <STDIN> };
    }

    chomp $content;
    return $content;
}

no Any::Moose;

1;

Image-Resize-OpenCV ( J/JU/JUNKER/Image-Resize-OpenCV-0.11.tar.gz, JUNKER, 2011; MetaCPAN )

Image-Resize-OpenCV/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-Parser2-XS ( Z/ZZ/ZZZ/HTTP-Parser2-XS-0.01.tar.gz, ZZZ, 2011; MetaCPAN )

HTTP-Parser2-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

Text-Upskirt ( S/SI/SIMCOP/Text-Upskirt-0.100.tar.gz, SIMCOP, 2011; MetaCPAN )

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

Crypt-DSA ( A/AD/ADAMK/Crypt-DSA-1.17.tar.gz, ADAMK, 2011; MetaCPAN )

Crypt-DSA/lib/Crypt/DSA/Key.pm ( view source; MetaCPAN )

$fname = delete $param{Filename}) {
        open FH, $fname or return;
        my $blob = do { local $/; <FH> };
        close FH;
        $param{Content} = $blob;
    }
    $key->deserialize(%param);

Internals-CountObjects ( J/JJ/JJORE/Internals-CountObjects-0.05.tar.gz, JJORE, 2011; MetaCPAN )

Internals-CountObjects/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-ContinuousProfiler ( J/JJ/JJORE/Devel-ContinuousProfiler-0.12.tar.gz, JJORE, 2011; MetaCPAN )

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

Queue-Mmap ( I/IE/IEFREMOV/Queue-Mmap-0.11.tar.gz, IEFREMOV, 2011; MetaCPAN )

Queue-Mmap/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

Statistics-CountAverage-XS ( I/IE/IEFREMOV/Statistics-CountAverage-XS-0.01.tar.gz, IEFREMOV, 2011; MetaCPAN )

Statistics-CountAverage-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

Statistics-useR ( X/XI/XINZHENG/Statistics-useR-0.1.1.tar.gz, XINZHENG, 2011; MetaCPAN )

Statistics-useR/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

ZeroMQ-Raw ( J/JR/JROCKWAY/ZeroMQ-Raw-0.01.tar.gz, JROCKWAY, 2011; MetaCPAN )

ZeroMQ-Raw/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

Gtk2-WebKit ( F/FL/FLORA/Gtk2-WebKit-0.09.tar.gz, FLORA, 2011; MetaCPAN )

Gtk2-WebKit/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