Branch Coverage

blib/lib/CljPerl/Printer.pm
Criterion Covered Total %
branch 0 24 0.0


line true false branch
10 0 0 unless defined $obj
14 0 0 if ($class eq 'Seq') { }
15 0 0 if ($type eq 'vector') { }
0 0 elsif ($type eq 'map') { }
25 0 0 if ($type eq 'vector') { }
0 0 elsif ($type eq 'map') { }
34 0 0 if ($type eq 'vector') { }
0 0 elsif ($type eq 'map' or $type eq 'meta') { }
0 0 elsif ($type eq 'xml') { }
0 0 elsif ($type eq 'function' or $type eq 'macro') { }
0 0 elsif ($type eq 'exception') { }
51 0 0 if (defined $$obj{'meta'})