Branch Coverage

blib/lib/Perl/ToPerl6/TransformerFactory.pm
Criterion Covered Total %
branch 51 66 77.2


line true false branch
50 17 35 unless (@site_transformer_names)
59 0 17 unless ($eval_worked)
60 0 0 if ($Perl::ToPerl6::TransformerFactory::EVAL_ERROR)
69 0 17 unless (@site_transformer_names)
81 22 30 if ($test_mode and &any(sub { /\b blib \b/msx; } , @INC))
84 0 22 if ($extra_test_transformers)
109 1190 66 unless $dependencies->{$name}{'before'}
129 66 1190 if ($transformer->can('run_before'))
139 166 1090 if ($transformer->can('run_after'))
155 166 1090 if ($preferences->{$k} and $preferences->{$k}{'after'})
158 166 0 if exists $preferences->{$_k}
162 66 1190 if ($preferences->{$k} and $preferences->{$k}{'before'})
165 132 0 if exists $preferences->{$_k}
223 0 68 if $iterations-- <= 0
229 497 958 if ($preferences->{$name}{'after'}) { }
239 199 298 unless (exists $final{$_name})
250 298 199 if ($max >= 0)
271 0 34 if (keys %{$preferences;})
320 0 121 unless $self->{'_profile'} = $profile
328 121 0 if ($profile_strictness ne $Perl::ToPerl6::TransformerFactory::PROFILE_STRICTNESS_QUIET)
332 40 81 if ($profile_strictness eq $Perl::ToPerl6::TransformerFactory::PROFILE_STRICTNESS_FATAL or $incoming_errors and @{$incoming_errors->exceptions;})
336 2 38 $incoming_errors ? :
344 0 48 if (not $incoming_errors and $errors and $errors->has_exceptions)
363 1 1411 unless my $transformer_name = $args{-'name'}
374 41 1370 if ($args{-'params'}) { }
396 32 1 $incoming_errors ? :
407 1254 0 if ($transformer)
412 0 33 if (not $incoming_errors and $errors->has_exceptions)
465 41 2741 unless ($eval_worked)
466 41 0 if ($eval_error)
469 39 2 if (ref $exception)
493 4 57 unless (exists $known_transformers{$transformer_name})
496 2 2 if ($errors) { }