Branch Coverage

blib/lib/Regexp/English.pm
Criterion Covered Total %
branch 32 32 100.0


line true false branch
111 18 77 unless @_
114 11 66 unless blessed $self
188 17 20 if (eval { do { $_[0]->isa('Regexp::English') } })
193 10 7 if (@_) { }
220 84 266 if $export
227 4 2 if (eval { do { $_[0]->isa('Regexp::English') } })
230 2 2 if (@_) { }
252 4 25 unless blessed $self
255 11 18 if (ref $_[0] eq 'SCALAR')
261 17 12 if (@_) { }
280 7 9 unless defined $levels
282 1 15 unless (@{$$self[2];})
303 8 110 if (@{$$self[1];}) { }
309 10 100 if (wantarray) { }
328 2 6 if (wantarray) { }
342 8 113 if (my $num = @{$$self[2];})