view release on metacpan or  search on metacpan

t/40_ishmael.t  view on Meta::CPAN

);

my $tmpout = do {
    my ($fh, $tmp) = tempfile(UNLINK => 1);
    close $fh;
    $tmp;
};

sub new_ishmael {

    local @ARGV = ('-N', @_);

    return EBook::Ishmael->init;

}

for my $f (@FILES) { SKIP: {

    my $ishmael;

    my ($file) = $f =~ /\.(.+)$/;