| 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'}
|