Branch Coverage

blib/lib/Perl/ToPerl6/TransformerFactory.pm
Criterion Covered Total %
branch 37 66 56.0


line true false branch
48 1 3 unless (@site_transformer_names)
57 0 1 unless ($eval_worked)
58 0 0 if ($Perl::ToPerl6::TransformerFactory::EVAL_ERROR)
67 0 1 unless (@site_transformer_names)
79 1 3 if ($test_mode and &any(sub { /\b blib \b/msx; } , @INC))
82 0 1 if ($extra_test_transformers)
107 33 4 unless $dependencies->{$name}{'before'}
127 4 33 if ($transformer->can('run_before'))
137 7 30 if ($transformer->can('run_after'))
153 7 30 if ($preferences->{$k} and $preferences->{$k}{'after'})
156 7 0 if exists $preferences->{$_k}
160 4 33 if ($preferences->{$k} and $preferences->{$k}{'before'})
163 6 0 if exists $preferences->{$_k}
221 0 2 if $iterations-- <= 0
227 17 26 if ($preferences->{$name}{'after'}) { }
237 6 13 unless (exists $final{$_name})
248 11 6 if ($max >= 0)
269 0 1 if (keys %{$preferences;})
318 0 4 unless $self->{'_profile'} = $profile
326 4 0 if ($profile_strictness ne $Perl::ToPerl6::TransformerFactory::PROFILE_STRICTNESS_QUIET)
330 0 4 if ($profile_strictness eq $Perl::ToPerl6::TransformerFactory::PROFILE_STRICTNESS_FATAL or $incoming_errors and @{$incoming_errors->exceptions;})
334 0 0 $incoming_errors ? :
342 0 1 if (not $incoming_errors and $errors and $errors->has_exceptions)
361 0 37 unless my $transformer_name = $args{-'name'}
372 0 37 if ($args{-'params'}) { }
394 1 0 $incoming_errors ? :
405 37 0 if ($transformer)
410 0 1 if (not $incoming_errors and $errors->has_exceptions)
463 0 74 unless ($eval_worked)
464 0 0 if ($eval_error)
467 0 0 if (ref $exception)
491 0 0 unless (exists $known_transformers{$transformer_name})
494 0 0 if ($errors) { }