Branch Coverage

blib/lib/Perl/ToPerl6/Config.pm
Criterion Covered Total %
branch 88 104 84.6


line true false branch
55 7 66 if (defined $args{-'top'} or defined $args{-'theme'})
143 32 41 if (not defined $profile_source or $profile_source ne 'NONE')
148 4 69 if ($errors->has_exceptions)
161 1 881 unless ($args{-'transformer'})
168 880 1 if (&blessed($transformer))
189 0 880 unless my $config = $transformer_object->__get_config
195 880 0 if ($transformer_object->initialize_if_enabled($config)) { }
214 2 30 if $errors->has_exceptions
219 152 988 if ($self->single_transformer)
220 40 112 if ($self->_transformer_is_single_transformer($transformer))
227 1 987 unless $transformer->is_safe or $self->unsafe_allowed
230 151 836 $self->only ? :
232 3 984 if $self->_transformer_is_disabled($transformer)
233 53 934 if $self->_transformer_is_enabled($transformer)
234 2 985 if $self->_transformer_is_unimportant($transformer)
235 38 949 unless $self->_transformer_is_thematic($transformer)
236 0 987 if $self->_transformer_is_included($transformer)
237 7 980 if $self->_transformer_is_excluded($transformer)
240 147 840 unless $load_me
245 2 28 if ($self->single_transformer and scalar $self->transformers != 1)
309 0 152 unless @patterns
333 1 1 if (scalar $self->transformers == 0) { }
363 7 212 if ($args_value)
366 3 4 if (ref $args_value) { }
374 212 7 unless (@regexes)
378 143 69 if (ref $default_value) { }
1 68 elsif ($default_value) { }
389 3 13 unless (eval { do { qr/$regex/imsx } })
407 216 3 unless ($found_errors)
426 0 73 if ($args_value) { }
438 1 72 unless ($Perl::ToPerl6::Config::PROFILE_STRICTNESSES{$profile_strictness})
467 0 73 if ($args_value) { }
479 1 72 if (is_integer($verbosity) and not is_valid_numeric_verbosity($verbosity)) { }
509 18 55 if ($args_value) { }
521 67 6 if (is_integer($severity)) { }
1 5 elsif (not &any(sub { $_ eq lc $severity; } , @Perl::ToPerl6::Config::SEVERITY_NAMES)) { }
522 66 1 if ($severity >= $Perl::ToPerl6::Config::SEVERITY_LOWEST and $severity <= $Perl::ToPerl6::Config::SEVERITY_HIGHEST) { }
568 2 71 if (defined $args_value and $args_value ne '') { }
580 72 1 if (is_integer($top) and $top >= 0) { }
606 4 69 if ($args_value) { }
618 0 73 if ($theme_rule =~ /$Perl::ToPerl6::Config::RULE_INVALID_CHARACTER_REGEX/msx) { }
639 1 72 if ($Perl::ToPerl6::Config::EVAL_ERROR) { }
654 0 72 unless (eval { do { $self->{'_theme'} = 'Perl::ToPerl6::Theme'->new(-'rule', $theme_rule) } })
669 0 73 if ($args_value) { }
0 73 elsif ($ENV{'PERLMOGRIFY_PAGER'}) { }
670 0 0 defined $args_value ? :
680 0 73 if ($pager eq '$PAGER')
699 5 360 if (defined $args_value) { }
715 365 0 if (eval { do { require Term::ANSIColor; 'Term::ANSIColor'->VERSION($Perl::ToPerl6::Config::_MODULE_VERSION_TERM_ANSICOLOR); 1 } })
729 5 360 if ($found_errors) { }
757 0 73 'ARRAY' eq ref $args_value ? :
942 0 5 if $self->{'_program_extensions_as_regexes'}