Branch Coverage

blib/lib/Perl/ToPerl6/Transformation.pm
Criterion Covered Total %
branch 24 30 80.0


line true false branch
49 1 38 if (@_ != $CONSTRUCTOR_ARG_COUNT)
53 1 37 if (eval { do { $elem->isa('Perl::ToPerl6::Document') } })
58 1 37 unless (eval { do { $elem->isa('PPI::Element') } })
79 2 35 $top->can('filename') ? :
96 5 0 unless ref $_[0]
97 0 5 unless wantarray
102 0 17 unless $Perl::ToPerl6::Transformation::a->[1] <=> $Perl::ToPerl6::Transformation::b->[1]
111 1 0 unless ref $_[0]
112 0 1 unless wantarray
168 2 3 unless ($diagnostics{$transformer})
193 20 6 unless ($expl)
196 2 24 if (ref $expl eq 'ARRAY')
197 1 1 @{$expl;} > 1 ? :
305 0 37 if $inx > @lines
315 6 74 if not defined $_ or ref $_