Branch Coverage

blib/lib/Language/LispPerl/Printer.pm
Criterion Covered Total %
branch 25 34 73.5


line true false branch
17 130 730 if (&Scalar::Util::blessed($thing))
23 550 180 unless ($ref_thing)
26 54 126 if ($ref_thing eq 'ARRAY')
29 126 0 if ($ref_thing eq 'HASH')
42 0 32 unless defined $obj
46 8 24 if ($class eq 'Seq') { }
47 2 6 if ($type eq 'vector') { }
0 6 elsif ($type eq 'map') { }
59 2 6 if ($type eq 'vector') { }
0 6 elsif ($type eq 'map') { }
71 1 23 if ($type eq 'vector') { }
0 23 elsif ($type eq 'map' or $type eq 'meta') { }
0 23 elsif ($type eq 'xml') { }
1 22 elsif ($type eq 'function' or $type eq 'macro') { }
0 22 elsif ($type eq 'exception') { }
4 18 elsif ($type eq 'string') { }
90 0 0 if (defined $obj->{'meta_data'})