Branch Coverage

blib/lib/Perl/ToPerl6.pm
Criterion Covered Total %
branch 20 34 58.8


line true false branch
99 4 2 @_ >= 2 ? :
100 4 2 ref $self eq 'HASH' ? :
101 2 4 unless defined $source_code
104 0 4 &blessed($source_code) && $source_code->isa('Perl::ToPerl6::Document') ? :
112 0 4 if (0 == $self->transformers)
122 0 4 if ($_[-2] and $_[-2] eq 'doc')
125 0 4 unless (ref $source_code)
126 0 0 unless open my $fh, '>', $source_code . '.pl6'
141 4 0 unless ($self->config->force)
154 0 4 if (@transformations and my $top = $self->config->top)
155 0 0 @transformations < $top ? :
170 0 151 unless $transformer->prepare_to_scan_document($doc)
173 0 151 if defined $maximum_transformations and $maximum_transformations == 0
180 4 155 if ($type eq 'PPI::Document') { }
184 142 13 unless $doc->find($type)
199 0 19 if ($doc->line_is_disabled_for_transformer($line, $transformer))
205 0 19 if defined $maximum_transformations and @transformations >= $maximum_transformations