Branch Coverage

blib/lib/Perl/Critic/Policy/Documentation/PodSpelling.pm
Criterion Covered Total %
branch 5 42 11.9


line true false branch
75 0 22 unless eval {
77 22 0 unless $self->_derive_spell_command_line
87 0 0 unless $self->_run_spell_command($test_code)
103 0 0 unless $words
105 0 0 unless @{$words;}
116 0 22 unless (@words)
119 22 0 unless ("File::Spec"->file_name_is_absolute($words[0]))
122 22 0 unless ($words[0] and -x $words[0])
195 0 0 unless open my $infh, "<", \$code
199 0 0 unless close $infh
200 0 0 unless close $outfh
201 0 0 unless -s $outfile
206 0 0 unless open my $aspell_out_fh, "-|", "$command_line < $outfile"
210 0 0 unless close $aspell_out_fh
219 0 0 unless (eval {
221 0 0 if ($Perl::Critic::Policy::Documentation::PodSpelling::EVAL_ERROR and not ref "Perl::Critic::Exception::Fatal::Generic"->caught)
225 0 0 ref $Perl::Critic::Policy::Documentation::PodSpelling::EVAL_ERROR ? :
241 0 0 unless my $file_name = $self->_get_stop_words_file
244 0 0 unless (open my $handle, "<", $file_name)
247 0 0 if (my $word = _word_from_line($line))
252 0 0 unless close $handle