Condition Coverage

blib/lib/EBook/Gutenberg.pm
Criterion Covered Total %
condition 9 61 14.7


and 3 conditions

line !l l&&!r l&&r condition
75 0 0 0 exists $ENV{'XDG_DATA_HOME'} and -d $ENV{'XDG_DATA_HOME'}
116 0 0 0 $in =~ /^\d+$/u and exists $n{$in}
200 0 0 0 open $fh, ">", $self->{'GetFile'} and close $fh
272 6 0 1 defined $params{'authors'} and @{$params{'authors'};}
284 6 0 1 defined $params{'subjects'} and @{$params{'subjects'};}
296 6 0 1 defined $params{'shelves'} and @{$params{'shelves'};}
744 0 0 0 @books >= 100 and not $self->{'Quiet'}

or 2 conditions

line l !l condition
214 0 0 (stat $self->{'GetFile'})[9] // 0
914 0 47 $self->{'Format'} //= "epub3"

or 3 conditions

line l !l&&r !l&&!r condition
95 0 0 0 $in eq "" or fc $in eq "n"
116 0 0 0 $in eq "" or fc $in eq "n"
366 0 0 0 $rv == 1 or $rv == 7
480 0 0 0 $rv == 1 or $rv == 7
510 0 0 0 $rv == 1 or $rv == 7
546 0 0 0 $rv == 1 or $rv == 7
570 0 0 0 $rv == 1 or $rv == 7
607 0 0 0 $self->{'TxtCache'}{$book->{'Text#'}} // do { my $p = eval { do { my $tmp = do { my($fh, $fn) = tempfile(); close $fh; $fn }; sleep 5 unless $self->_get_ok; $self->_touch_get; gutenberg_get($book->{'Text#'}, {"fmt", "text", "to", $tmp}) } }; if ($@ ne "") { $self->{'Dialog'}->msgbox("Failed to fetch ebook: $@", 0, 0); return 1; } ; $self->{'TxtCache'}{$book->{'Text#'}} = $p }
734 0 0 0 @books == 1 or $self->{'NoPrompt'}
783 0 0 0 $self->{'To'} // "$sel->{'Title'}.*"
897 47 0 0 $self->{'Data'} //= $ENV{'GUTENBERG_DATA'}
898 47 0 0 $self->{'Data'} //= _default_data()