view release on metacpan or  search on metacpan

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

my $CATPATH = File::Spec->catfile(qw/t data pg_catalog.csv/);
my $TMP_DATA = tempdir(CLEANUP => 1);

my @COMMON_OPTS = ('-d', $TMP_DATA);

sub newgut {

    my @args = @_;

    local @ARGV = (@COMMON_OPTS, @args);

    return EBook::Gutenberg->init;

}

copy($CATPATH, $TMP_DATA)
    or die "Failed to copy $CATPATH to $TMP_DATA: $!\n";

my $gut;