Yet Another CPAN Grep

Catalyst-Plugin-ReferingKeyword ( A/AS/ASHLEY/Catalyst-Plugin-ReferingKeyword-0.01.tar.gz, ASHLEY, 2007; MetaCPAN )

Catalyst-Plugin-ReferingKeyword/Catalyst-Plugin-ReferingKeyword-0.01/inc/Module/Install/Metadata.pm ( view source; MetaCPAN )

le ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slur

Audio-XMMSClient ( F/FL/FLORA/Audio-XMMSClient-0.03.tar.gz, FLORA, 2007; MetaCPAN )

Audio-XMMSClient/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

Bio-Emboss ( P/PE/PERNST/Bio-Emboss-5.0.0.1.tar.gz, PERNST, 2007; MetaCPAN )

Bio-Emboss/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

HoneyClient-Manager ( M/MI/MITREHC/HoneyClient-Manager-0.99.tar.gz, MITREHC, 2007; MetaCPAN )

HoneyClient-Manager/thirdparty/inc/Module/Install/Makefile.pm ( view source; MetaCPAN )

file_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE or die $!;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBO

Win32-Process-CommandLine ( K/KX/KXJ/Win32-Process-CommandLine-0.03.tar.gz, KXJ, 2007; MetaCPAN )

Win32-Process-CommandLine/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 co

File-BSED ( A/AS/ASKSH/File-BSED-0.67.tar.gz, ASKSH, 2007; MetaCPAN )

File-BSED/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

HoneyClient-Manager ( M/MI/MITREHC/HoneyClient-Manager-0.99.tar.gz, MITREHC, 2007; MetaCPAN )

HoneyClient-Manager/thirdparty/inc/Module/Install/Metadata.pm ( view source; MetaCPAN )

le ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slur

HoneyClient-Util ( M/MI/MITREHC/HoneyClient-Util-0.98-stable.tar.gz, MITREHC, 2007; MetaCPAN )

HoneyClient-Util/thirdparty/inc/Module/Install/Makefile.pm ( view source; MetaCPAN )

file_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE or die $!;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBO

HoneyClient-Util ( M/MI/MITREHC/HoneyClient-Util-0.98-stable.tar.gz, MITREHC, 2007; MetaCPAN )

HoneyClient-Util/thirdparty/inc/Module/Install/Metadata.pm ( view source; MetaCPAN )

le ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slur

HoneyClient-DB ( M/MI/MITREHC/HoneyClient-DB-0.98-stable.tar.gz, MITREHC, 2007; MetaCPAN )

HoneyClient-DB/thirdparty/inc/Module/Install/Makefile.pm ( view source; MetaCPAN )

file_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE or die $!;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBO

HoneyClient-Agent ( M/MI/MITREHC/HoneyClient-Agent-0.98-stable.tar.gz, MITREHC, 2007; MetaCPAN )

HoneyClient-Agent/thirdparty/inc/Module/Install/Makefile.pm ( view source; MetaCPAN )

file_name" or die "fix_up_makefile: Couldn't open $makefile_name: $!";
    my $makefile = do { local $/; <MAKEFILE> };
    close MAKEFILE or die $!;

    $makefile =~ s/\b(test_harness\(\$\(TEST_VERBO

HoneyClient-Agent ( M/MI/MITREHC/HoneyClient-Agent-0.98-stable.tar.gz, MITREHC, 2007; MetaCPAN )

HoneyClient-Agent/thirdparty/inc/Module/Install/Metadata.pm ( view source; MetaCPAN )

le ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slur

HoneyClient-DB ( M/MI/MITREHC/HoneyClient-DB-0.98-stable.tar.gz, MITREHC, 2007; MetaCPAN )

HoneyClient-DB/thirdparty/inc/Module/Install/Metadata.pm ( view source; MetaCPAN )

le ) = @_;

    local *FH;
    open FH, "< $file" or die "Cannot open $file.pod: $!";
    do { local $/; <FH> };
}

sub perl_version_from {
    my ( $self, $file ) = @_;

    if (
        $self->_slur

Config-Apt-Sources ( I/IA/IANK/Config-Apt-Sources-0.10.tar.gz, IANK, 2007; MetaCPAN )

Config-Apt-Sources/lib/Config/Apt/Sources.pm ( view source; MetaCPAN )

onfig::Apt::Sources;

    my $srcs = Config::Apt::Sources->new();
    $srcs->parse_stream(do { local $/; <> });

    my @sources = $srcs->get_sources();
    $sources[0]->set_uri("http://ftp.us.debian.

ven string argument as the contents of an apt sources.list file.

    $srcs->parse_stream(do { local $/; <FILE> });

=cut

sub parse_stream {
  my $self = shift;
  my @lines = split("\n",shift);

  my

DBIx-MyParse ( P/PH/PHILIPS/DBIx-MyParse-0.88.tar.gz, PHILIPS, 2007; MetaCPAN )

DBIx-MyParse/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

Tree-Node ( R/RR/RRWO/Tree-Node-0.08.tar.gz, RRWO, 2007; MetaCPAN )

Tree-Node/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

Sort-Key-Merger ( S/SA/SALVA/Sort-Key-Merger-0.10_02.tar.gz, SALVA, 2007; MetaCPAN )

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

Statistics-Suggest ( I/IH/IHARA/Statistics-Suggest-0.01.tar.gz, IHARA, 2007; MetaCPAN )

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

Devel-FastProf ( S/SA/SALVA/Devel-FastProf-0.08.tar.gz, SALVA, 2007; MetaCPAN )

Devel-FastProf/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-getloadavg ( D/DA/DANKOGAI/BSD-getloadavg-0.03.tar.gz, DANKOGAI, 2007; MetaCPAN )

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