view release on metacpan or  search on metacpan

lib/EBook/Gutenberg.pm  view on Meta::CPAN

        close STDERR;
        open STDERR, '>&', $error;
    }

    exit $exit if defined $exit;

    return 1;

}

sub update {

    my $self = shift;

    my $catalog = EBook::Gutenberg::Catalog->new($self->{ Catalog });

    unless ($self->_get_ok) {
        die "Please wait at least 5 seconds before performing another " .
            "network operation with Project Gutenberg\n";
    }