Yet Another CPAN Grep

EBook-Ishmael ( S/SA/SAMYOUNG/EBook-Ishmael-1.09.tar.gz, SAMYOUNG, 2025; MetaCPAN )

EBook-Ishmael/lib/EBook/Ishmael.pm ( view source; MetaCPAN )

ile::Basename;
use File::Path qw(remove_tree);
use File::Temp qw(tempfile);
use Getopt::Long;
use JSON::PP;
use List::Util qw(max);

use XML::LibXML;

use EBook::Ishmael::EBook;
use EBook::Ishmael::Im

     => 'kf8',
);

# TODO: At some point in the future, remove pjson and pxml
my %META_MODES = map { $_ => 1 } qw(
    ishmael json pjson xml pxml
);

# Replace characters that cannot be encoded with


    my $self = shift;

    if ($self->{Meta} eq 'pxml' or $self->{Meta} eq 'pjson') {
        warn "Using 'pxml' or 'pjson' as a metadata format is deprecated and will be removed in a future release\