Yet Another CPAN Grep

FB3-Convert ( G/GR/GRIBUSER/FB3-Convert-0.48.tar.gz, GRIBUSER, 2021; MetaCPAN )

FB3-Convert/bin/fb3_to_fb2.pl ( view source; MetaCPAN )

mage::LibRSVG;
use File::Temp qw/tempfile/;
use Encode;
use Text::Unidecode;
use URI::Escape;
use JSON::XS;
use utf8;
use open OUT => ':utf8';

use constant {
  RELATION_TYPE_FB3_BOOK =>
    'http://w

ned") unless defined $OPT{'fb2'};
$OPT{'genremap'} //= dist_file("FB3-Convert", "fb3_to_fb2_genre.json");

#CHECK --fb2,--fb3 
my $FileName = $OPT{'fb3'};
$FileName =~ s/.*?([^\/]+)$/$1/;
$FileName =~

$fh>;
  };
  my $GenreMap = eval {JSON::XS->new->utf8->decode($GenreMapString)};
  if ($@) {
    die "Seems like genres map file '$GenreMapPath' contains invalid JSON. Error occured '$@'";
  }
  die "

FB3-Convert ( G/GR/GRIBUSER/FB3-Convert-0.48.tar.gz, GRIBUSER, 2021; MetaCPAN )

FB3-Convert/lib/FB3/Euristica.pm ( view source; MetaCPAN )

          {
              "DEBUG": '[INDEX:' + currIndex + ']' + currNode.outerHTML + '[DUMP:' + JSON.stringify(Calc) + ']',
              "BALLS": Calc['BALLS'],
              "CHANGED": Changed

FB3-Convert ( G/GR/GRIBUSER/FB3-Convert-0.48.tar.gz, GRIBUSER, 2021; MetaCPAN )

FB3-Convert/bin/fb3_2_json.pl ( view source; MetaCPAN )

e OPC::Node;
use FB3;
use utf8;
use Encode;
use open qw(:std :utf8);
use Image::Info;
use JSON::Path;
use JSON::PP;
use File::Copy;
use File::Basename;
use MIME::Base64;
use TeX::Hyphen;

use Getopt::

nary = undef;
my $Hyp = undef;

GetOptions ('in|from|src|fb3=s' => \$FB3,
            'out|to|dst|json=s' => \$Out,
            'lang=s'            => \$Lang,
            'art|art-id=s'      => \$ArtI

   unless $FB3;
print join('', <DATA>) and die "ERROR: destination directory not specified, use --json parameter\n" unless $Out;

die "\nERROR: source directory `$FB3' not found\n"      unless -d $FB3