| line |
!l |
l&&!r |
l&&r |
condition |
|
145
|
47 |
1 |
1 |
$opts{-'noprofile'} and $opts{-'profile'}
|
|
149
|
46 |
2 |
1 |
$opts{-'verbose'} and not $opts{-'verbose'} =~ /(?: \d+ | %[mfFlcCedrpPs] )/msx
|
|
154
|
43 |
5 |
1 |
exists $opts{-'top'} and $opts{-'top'} < 0
|
|
159
|
38 |
11 |
0 |
exists $opts{-'severity'} and $opts{-'severity'} < $Perl::ToPerl6::Command::SEVERITY_LOWEST || $opts{-'severity'} > $Perl::ToPerl6::Command::SEVERITY_HIGHEST
|
|
186
|
0 |
0 |
0 |
@args == 1 and $args[0] eq '-'
|
|
286
|
0 |
0 |
0 |
not ref $file and $$opts_ref{$number_of_transformations ? '-files-with-transformations' : '-files-without-transformations'}
|
|
309
|
0 |
0 |
0 |
$verbosity eq $Perl::ToPerl6::Command::DEFAULT_VERBOSITY && @files > 1
|
|
343
|
0 |
0 |
0 |
not $opts_ref->{'-statistics-only'} and $statistics->total_transformations || !$$opts_ref{-'quiet'} && $statistics->modules
|
| line |
l |
!l&&r |
!l&&!r |
condition |
|
85
|
9 |
1 |
34 |
$opts{-'severity'} ||= &first(sub {
exists $opts{"-$_"};
}
, @Perl::ToPerl6::Command::SEVERITY_NAMES)
|
|
86
|
10 |
2 |
32 |
$opts{-'severity'} ||= &first(sub {
exists $opts{"-$_"};
}
, $Perl::ToPerl6::Command::SEVERITY_LOWEST .. $Perl::ToPerl6::Command::SEVERITY_HIGHEST)
|
|
95
|
3 |
2 |
0 |
$opts{-'top'} ||= $DEFAULT_VIOLATIONS_FOR_TOP
|
|
159
|
1 |
1 |
9 |
$opts{-'severity'} < $Perl::ToPerl6::Command::SEVERITY_LOWEST || $opts{-'severity'} > $Perl::ToPerl6::Command::SEVERITY_HIGHEST
|
|
186
|
0 |
0 |
0 |
not @args or @args == 1 and $args[0] eq '-'
|
|
268
|
0 |
0 |
0 |
$$opts_ref{-'statistics'} or $opts_ref->{'-statistics-only'}
|
|
283
|
0 |
0 |
0 |
$opts_ref->{'-files-with-transformations'} or $opts_ref->{'-files-without-transformations'}
|
|
300
|
0 |
0 |
0 |
@transformations or $$opts_ref{-'quiet'}
|
|
343
|
0 |
0 |
0 |
$statistics->total_transformations || !$$opts_ref{-'quiet'} && $statistics->modules
|