Branch Coverage

lib/Test/Spelling/Comment.pm
Criterion Covered Total %
branch 25 26 96.1


line true false branch
53 0 9 if $stopword eq ''
65 1 2 unless (@files)
72 1 2 unless ($self->file_ok($file))
79 1 1 if $rc
86 3 12 if @_ != 2 or not defined $file
88 1 11 unless (-f $file)
97 1 10 unless (open $fh, '<', $file)
108 1 9 unless (close $fh)
117 5 4 if (defined $skips_ref)
118 3 2 if (not defined &Scalar::Util::reftype($skips_ref) or &Scalar::Util::reftype($skips_ref) ne &Scalar::Util::reftype([]))
135 1 8 $self->_has_stopwords ? :
139 2 7 unless (eval { do { $result = $speller->parse_from_string(join("\n", @lines, '')); 1 } })
147 6 1 if (@{$result->{'fails'};} == 0)