Yet Another CPAN Grep

CAD-Firemen ( L/LA/LANGENJO/CAD-Firemen-0.7.2.tar.gz, LANGENJO, 2015; MetaCPAN )

CAD-Firemen/lib/CAD/Firemen/ParseHelp/Creo3.pm ( view source; MetaCPAN )

w(
  extractHelpCreo3
);

use POSIX;
use Tie::File;
use utf8;
use Term::ProgressBar;
use JSON::Parse 'parse_json';
use IO::HTML;
use HTML::TreeBuilder 5 -weak;
use File::Basename;
use CAD::Firemen;
us

$progress->minor(0);
  my $i = 0;
  my $json;
  foreach my $line (@toc){
    my $line = strip($line);
    if($i != 0 && substr($line, 0, 1) ne ";"){
      $json .= $line ."\n";
    }
    $i++;
    $pr

gress->update($lines);
  }
  print "\n";

  my $jsonContent = parse_json($json);
  if(!$jsonContent || !exists($jsonContent->{"words"}) || !exists($jsonContent->{"pages"})){
    return (0, "Could not