Yet Another CPAN Grep

Games-SMTNocturne-Demons ( D/DO/DOY/Games-SMTNocturne-Demons-0.02.tar.gz, DOY, 2014; MetaCPAN )

Games-SMTNocturne-Demons/lib/Games/SMTNocturne/Demons/FusionChart.pm ( view source; MetaCPAN )

SION = '0.02';
use strict;
use warnings;

use JSON::PP;

my %FUSION_DATA = %{ decode_json(do { local $/; <DATA> }) };
my %TYPES = %{ $FUSION_DATA{normal_fusions} };
my %SPECIAL = %{ $FUSION_DATA{speci

Games-SMTNocturne-Demons ( D/DO/DOY/Games-SMTNocturne-Demons-0.02.tar.gz, DOY, 2014; MetaCPAN )

Games-SMTNocturne-Demons/lib/Games/SMTNocturne/Demons/Demon.pm ( view source; MetaCPAN )

> 1;
# ABSTRACT: an individual demon

use JSON::PP;


my %DEMONS_BY_NAME = %{ decode_json(do { local $/; <DATA> }) };
for my $name (keys %DEMONS_BY_NAME) {
    $DEMONS_BY_NAME{$name}{name} = $name;

Device-SaleaeLogic ( V/VI/VIKAS/Device-SaleaeLogic-0.02.tar.gz, VIKAS, 2014; MetaCPAN )

Device-SaleaeLogic/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

WKHTMLTOX-XS ( K/KW/KWAGNER/WKHTMLTOX-XS-0.01.tar.gz, KWAGNER, 2014; MetaCPAN )

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

XML-DifferenceMarkup ( V/VB/VBAR/XML-DifferenceMarkup-1.05.tar.gz, VBAR, 2014; MetaCPAN )

XML-DifferenceMarkup/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-Domain ( S/SA/SALVA/Sort-Key-Domain-0.01.tar.gz, SALVA, 2014; MetaCPAN )

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

FFI-Raw ( A/AL/ALEXBIO/FFI-Raw-0.32.tar.gz, ALEXBIO, 2014; MetaCPAN )

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

Unicode-Number ( Z/ZM/ZMUGHAL/Unicode-Number-0.009.tar.gz, ZMUGHAL, 2014; MetaCPAN )

Unicode-Number/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-Packed ( S/SA/SALVA/Sort-Packed-0.08.tar.gz, SALVA, 2014; MetaCPAN )

Sort-Packed/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

Math-SimpleHisto-XS ( S/SM/SMUELLER/Math-SimpleHisto-XS-1.30.tar.gz, SMUELLER, 2014; MetaCPAN )

Math-SimpleHisto-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

WWW-Mechanize-Plugin-FollowMetaRedirect ( R/RY/RYOCHIN/WWW-Mechanize-Plugin-FollowMetaRedirect-0.03.tar.gz, RYOCHIN, 2014; MetaCPAN )

WWW-Mechanize-Plugin-FollowMetaRedirect/devel/build_test_html.pl ( view source; MetaCPAN )

  q|<meta http-equiv="refresh" content="0; url=&#39;result.html&#39;" />|,
);

my $html = do { local $/; <DATA> };

my $n = 0;
for my $t( @t ){
  $n++;
  next if $n == 1;    # for complicated html
  m

Lingua-Foma ( A/AK/AKRON/Lingua-Foma-0.01_5.tar.gz, AKRON, 2014; MetaCPAN )

Lingua-Foma/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

Directory-Iterator-XS ( S/SA/SANBEG/Directory-Iterator-XS-1.001002.tar.gz, SANBEG, 2014; MetaCPAN )

Directory-Iterator-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

MongoDB-Async ( N/NY/NYAKNYAN/MongoDB-Async-0.702.3.tar.gz, NYAKNYAN, 2014; MetaCPAN )

MongoDB-Async/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

Math-decNumber ( J/JL/JLMOREL/Math-decNumber-0.02.tar.gz, JLMOREL, 2014; MetaCPAN )

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

Sort-Key-Top ( S/SA/SALVA/Sort-Key-Top-0.08.tar.gz, SALVA, 2014; MetaCPAN )

Sort-Key-Top/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 ( S/SA/SALVA/Sort-Key-1.33.tar.gz, SALVA, 2014; MetaCPAN )

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

Win32-FindFile ( G/GR/GRIAN/Win32-FindFile-0.15.tar.gz, GRIAN, 2014; MetaCPAN )

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

Enbugger ( J/JJ/JJORE/Enbugger-2.016.tar.gz, JJORE, 2014; MetaCPAN )

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

Template-Alloy-XS ( G/GA/GAUDEON/Template-Alloy-XS-1.004.tar.gz, GAUDEON, 2014; MetaCPAN )

Template-Alloy-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