| line |
true |
false |
branch |
|
51
|
0 |
3 |
if (defined $args{-'top'} or defined $args{-'theme'})
|
|
133
|
1 |
2 |
if (not defined $profile_source or $profile_source ne 'NONE')
|
|
138
|
0 |
3 |
if ($errors->has_exceptions)
|
|
151
|
0 |
37 |
unless ($args{-'transformer'})
|
|
158
|
37 |
0 |
if (&blessed($transformer))
|
|
179
|
0 |
37 |
unless my $config = $transformer_object->__get_config
|
|
185
|
37 |
0 |
if ($transformer_object->initialize_if_enabled($config)) { }
|
|
204
|
0 |
1 |
if $errors->has_exceptions
|
|
209
|
0 |
37 |
if ($self->single_transformer)
|
|
210
|
0 |
0 |
if ($self->_transformer_is_single_transformer($transformer))
|
|
217
|
0 |
37 |
$self->only ? :
|
|
219
|
0 |
37 |
if $self->_transformer_is_disabled($transformer)
|
|
220
|
0 |
37 |
if $self->_transformer_is_enabled($transformer)
|
|
221
|
0 |
37 |
if $self->_transformer_is_unimportant($transformer)
|
|
222
|
0 |
37 |
unless $self->_transformer_is_thematic($transformer)
|
|
223
|
0 |
37 |
if $self->_transformer_is_included($transformer)
|
|
224
|
0 |
37 |
if $self->_transformer_is_excluded($transformer)
|
|
227
|
0 |
37 |
unless $load_me
|
|
232
|
0 |
1 |
if ($self->single_transformer and scalar $self->transformers != 1)
|
|
296
|
0 |
0 |
unless @patterns
|
|
320
|
0 |
0 |
if (scalar $self->transformers == 0) { }
|
|
350
|
0 |
9 |
if ($args_value)
|
|
353
|
0 |
0 |
if (ref $args_value) { }
|
|
361
|
9 |
0 |
unless (@regexes)
|
|
365
|
6 |
3 |
if (ref $default_value) { }
|
|
|
0 |
3 |
elsif ($default_value) { }
|
|
376
|
0 |
0 |
unless (eval {
do {
qr/$regex/imsx
}
})
|
|
394
|
9 |
0 |
unless ($found_errors)
|
|
413
|
0 |
3 |
if ($args_value) { }
|
|
425
|
0 |
3 |
unless ($Perl::ToPerl6::Config::PROFILE_STRICTNESSES{$profile_strictness})
|
|
454
|
0 |
3 |
if ($args_value) { }
|
|
466
|
0 |
3 |
if (is_integer($verbosity) and not is_valid_numeric_verbosity($verbosity)) { }
|
|
496
|
0 |
3 |
if ($args_value) { }
|
|
508
|
3 |
0 |
if (is_integer($necessity)) { }
|
|
|
0 |
0 |
elsif (not &any(sub {
$_ eq lc $necessity;
}
, @Perl::ToPerl6::Config::NECESSITY_NAMES)) { }
|
|
509
|
3 |
0 |
if ($necessity >= $Perl::ToPerl6::Config::NECESSITY_LOWEST and $necessity <= $Perl::ToPerl6::Config::NECESSITY_HIGHEST) { }
|
|
555
|
0 |
3 |
if (defined $args_value and $args_value ne '') { }
|
|
567
|
3 |
0 |
if (is_integer($top) and $top >= 0) { }
|
|
593
|
0 |
3 |
if ($args_value) { }
|
|
605
|
0 |
3 |
if ($theme_rule =~ /$Perl::ToPerl6::Config::RULE_INVALID_CHARACTER_REGEX/msx) { }
|
|
626
|
0 |
3 |
if ($Perl::ToPerl6::Config::EVAL_ERROR) { }
|
|
641
|
0 |
3 |
unless (eval {
do {
$self->{'_theme'} = 'Perl::ToPerl6::Theme'->new(-'rule', $theme_rule)
}
})
|
|
656
|
0 |
3 |
if ($args_value) { }
|
|
|
0 |
3 |
elsif ($ENV{'PERLMOGRIFY_PAGER'}) { }
|
|
657
|
0 |
0 |
defined $args_value ? :
|
|
667
|
0 |
3 |
if ($pager eq '$PAGER')
|
|
686
|
0 |
3 |
if ($args_value) { }
|
|
698
|
3 |
0 |
if (is_integer($detail)) { }
|
|
|
0 |
0 |
elsif (not &any(sub {
$_ eq lc $detail;
}
, @Perl::ToPerl6::Config::NECESSITY_NAMES)) { }
|
|
699
|
3 |
0 |
if ($detail >= $Perl::ToPerl6::Config::NECESSITY_LOWEST and $detail <= $Perl::ToPerl6::Config::NECESSITY_HIGHEST) { }
|
|
745
|
0 |
15 |
if (defined $args_value) { }
|
|
761
|
15 |
0 |
if (eval {
do {
require Term::ANSIColor;
'Term::ANSIColor'->VERSION($Perl::ToPerl6::Config::_MODULE_VERSION_TERM_ANSICOLOR);
1
}
})
|
|
775
|
0 |
15 |
if ($found_errors) { }
|
|
803
|
0 |
3 |
'ARRAY' eq ref $args_value ? :
|
|
988
|
0 |
0 |
if $self->{'_program_extensions_as_regexes'}
|