Branch Coverage

blib/lib/Data/SExpression.pm
Criterion Covered Total %
branch 32 32 100.0


line true false branch
123 1 10 if $$args{'fold_alists'}
205 41 12 if $self->get_fold_lists
206 5 48 if $self->get_fold_alists
210 4 49 wantarray ? :
217 5 118 unless (defined $thing)
219 41 82 if (consp $thing)
225 33 8 if (consp($thing->cdr) or not defined $thing->cdr)
231 1 32 if (defined $cdr)
258 13 24 if (ref $thing eq 'ARRAY') { }
2 22 elsif (consp $thing) { }
259 3 12 if consp $_ and scalarp($_->car)
1 12 if (for_all sub { scalarp($_->cdr) if consp $_ and scalarp($_->car); } , @{$thing;}) { }
340 2 66 if ($self->get_symbol_case eq 'up') { }
2 64 elsif ($self->get_symbol_case eq 'down') { }
346 1 67 if ($self->get_fold_dashes)
350 1 67 if ($self->get_use_symbol_class) { }