Branch Coverage

lib/Test/Spelling/Comment.pm
Criterion Covered Total %
branch 47 48 97.9


line true false branch
53 0 9 if $stopword eq ''
64 11 4 scalar @_ ? :
65 1 14 unless (@args)
73 1 16 unless (-e $arg)
78 1 15 if (-l $arg)
83 3 12 if (-f $arg)
88 1 11 unless (-d $arg)
101 17 9 unless -f $File::Find::name
109 7 7 unless (@files)
116 1 11 unless ($self->file_ok($file))
123 6 1 if $rc
130 3 12 if @_ != 2 or not defined $file
132 1 11 unless (-f $file)
141 1 10 unless (open $fh, '<', $file)
152 1 9 unless (close $fh)
161 5 4 if (defined $skips_ref)
162 3 2 if (not defined &Scalar::Util::reftype($skips_ref) or &Scalar::Util::reftype($skips_ref) ne &Scalar::Util::reftype([]))
179 1 8 $self->_has_stopwords ? :
183 2 7 unless (eval { do { $result = $speller->parse_from_string(join("\n", @lines, '')); 1 } })
191 6 1 if (@{$result->{'fails'};} == 0)
207 3 11 if (-d 'blib') { }
6 5 elsif (-d 'lib') { }
214 4 10 if (-d 'bin')
218 2 12 if (-d 'script')