Branch Coverage

blib/lib/Data/Freq/Record.pm
Criterion Covered Total %
branch 29 36 80.5


line true false branch
114 0 186 if (not defined $input) { }
121 65 elsif (not ref $input) { }
60 5 elsif (ref $input eq 'ARRAY') { }
5 0 elsif (ref $input eq 'HASH') { }
144 94 4 if defined $$self{'text'}
146 2 2 if (defined $$self{'array'})
164 128 30 if defined $$self{'array'}
166 28 2 if (defined $$self{'text'})
182 3 2 if defined $$self{'hash'}
198 0 18 if $$self{'date_tried'}
202 0 18 unless my $array = $self->array
204 1 17 if (my $pos = shift())
207 0 1 unless $str =~ /\D/
212 17 27 if ($item =~ /^ \[ (.*) \] $/x)
214 17 0 if defined $t
224 1 17 if $str =~ s/[,\.](\d+)$//
226 0 18 unless defined $t
228 1 17 if $msec