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
|