| line |
true |
false |
branch |
|
66
|
0 |
0 |
if $had_error_in_file
|
|
67
|
0 |
0 |
unless defined $transformations
|
|
68
|
0 |
0 |
if $transformations
|
|
93
|
5 |
39 |
if (exists $opts{-'top'})
|
|
99
|
1 |
43 |
if (exists $opts{-'noprofile'})
|
|
112
|
0 |
52 |
unless &GetOptions(\%opts, @opt_specs)
|
|
126
|
1 |
51 |
if ($opts{-'help'})
|
|
127
|
1 |
50 |
if ($opts{-'options'})
|
|
128
|
1 |
49 |
if ($opts{-'man'})
|
|
129
|
0 |
49 |
if ($opts{-'version'})
|
|
130
|
0 |
49 |
if ($opts{-'list'})
|
|
131
|
0 |
49 |
if ($opts{'-list-enabled'})
|
|
132
|
0 |
49 |
if ($opts{'-list-themes'})
|
|
133
|
0 |
49 |
if ($opts{'-profile-proto'})
|
|
134
|
0 |
49 |
if ($opts{-'doc'})
|
|
145
|
1 |
48 |
if ($opts{-'noprofile'} and $opts{-'profile'})
|
|
149
|
1 |
48 |
if ($opts{-'verbose'} and not $opts{-'verbose'} =~ /(?: \d+ | %[mfFlcCedrpPs] )/msx)
|
|
154
|
1 |
48 |
if (exists $opts{-'top'} and $opts{-'top'} < 0)
|
|
159
|
2 |
9 |
if (exists $opts{-'severity'} and $opts{-'severity'} < $Perl::ToPerl6::Command::SEVERITY_LOWEST || $opts{-'severity'} > $Perl::ToPerl6::Command::SEVERITY_HIGHEST)
|
|
172
|
5 |
44 |
if ($msg)
|
|
186
|
0 |
0 |
if (not @args or @args == 1 and $args[0] eq '-') { }
|
|
193
|
0 |
0 |
unless (defined $code_string)
|
|
197
|
0 |
0 |
unless $code_string =~ / \S+ /msx
|
|
204
|
0 |
0 |
if (my $nonexistent = &first(sub {
not -e $_;
}
, @args))
|
|
213
|
0 |
0 |
-d $_ ? :
|
|
222
|
0 |
0 |
unless @files_to_transform
|
|
232
|
0 |
0 |
unless $mogrify->transformers
|
|
245
|
0 |
0 |
unless ($opts_ref->{'-statistics-only'})
|
|
250
|
0 |
0 |
unless (eval {
do {
my(@transformations) = $mogrify->transform($file);
$number_of_transformations += scalar @transformations;
unless ($opts_ref->{'-statistics-only'}) {
_render_report($file, $opts_ref, @transformations);
} ;
1
}
})
|
|
251
|
0 |
0 |
if (my $exception = 'Perl::ToPerl6::Exception::Parse'->caught) { }
|
|
|
0 |
0 |
elsif ($Perl::ToPerl6::Command::EVAL_ERROR) { }
|
|
268
|
0 |
0 |
if ($$opts_ref{-'statistics'} or $opts_ref->{'-statistics-only'})
|
|
283
|
0 |
0 |
if ($opts_ref->{'-files-with-transformations'} or $opts_ref->{'-files-without-transformations'})
|
|
286
|
0 |
0 |
$number_of_transformations ? :
|
|
|
0 |
0 |
if not ref $file and $$opts_ref{$number_of_transformations ? '-files-with-transformations' : '-files-without-transformations'}
|
|
293
|
0 |
0 |
if ($$opts_ref{-'count'})
|
|
294
|
0 |
0 |
unless ref $file
|
|
300
|
0 |
0 |
unless (@transformations or $$opts_ref{-'quiet'})
|
|
301
|
0 |
0 |
unless ref $file
|
|
309
|
0 |
0 |
$verbosity eq $Perl::ToPerl6::Command::DEFAULT_VERBOSITY && @files > 1 ? :
|
|
314
|
0 |
0 |
unless (-f $file)
|
|
318
|
0 |
0 |
$color ? :
|
|
327
|
0 |
0 |
unless $pager_command
|
|
328
|
0 |
0 |
unless _at_tty()
|
|
330
|
0 |
0 |
unless open my $pager, '|-', $pager_command
|
|
343
|
0 |
0 |
if (not $opts_ref->{'-statistics-only'} and $statistics->total_transformations || !$$opts_ref{-'quiet'} && $statistics->modules)
|
|
381
|
0 |
0 |
if (defined $average_sub_mccabe)
|
|
393
|
0 |
0 |
if (defined $transformations_per_file)
|
|
400
|
0 |
0 |
if (defined $transformations_per_statement)
|
|
407
|
0 |
0 |
if (defined $transformations_per_line)
|
|
414
|
0 |
0 |
if ($statistics->total_transformations)
|
|
521
|
0 |
0 |
if _this_is_windows()
|
|
522
|
0 |
0 |
unless eval {
do {
require Term::ANSIColor;
'Term::ANSIColor'->VERSION($Perl::ToPerl6::Command::_MODULE_VERSION_TERM_ANSICOLOR);
1
}
}
|
|
545
|
0 |
0 |
unless defined $color
|
|
546
|
0 |
0 |
if $color eq $Perl::ToPerl6::Command::EMPTY
|
|
552
|
0 |
0 |
chomp $string ? :
|
|
559
|
0 |
0 |
if $Perl::ToPerl6::Command::OSNAME =~ /MSWin32/msx
|