| line |
true |
false |
branch |
|
63
|
0 |
0 |
if $had_error_in_file
|
|
64
|
0 |
0 |
unless defined $transformations
|
|
89
|
0 |
0 |
if (exists $opts{-'top'})
|
|
95
|
0 |
0 |
if (exists $opts{-'noprofile'})
|
|
108
|
0 |
0 |
unless &GetOptions(\%opts, @opt_specs)
|
|
122
|
0 |
0 |
if ($opts{-'help'})
|
|
123
|
0 |
0 |
if ($opts{-'options'})
|
|
124
|
0 |
0 |
if ($opts{-'man'})
|
|
125
|
0 |
0 |
if ($opts{-'version'})
|
|
126
|
0 |
0 |
if ($opts{-'list'})
|
|
127
|
0 |
0 |
if ($opts{'-list-enabled'})
|
|
128
|
0 |
0 |
if ($opts{'-list-themes'})
|
|
129
|
0 |
0 |
if ($opts{'-profile-proto'})
|
|
130
|
0 |
0 |
if ($opts{-'doc'})
|
|
141
|
0 |
0 |
if ($opts{-'noprofile'} and $opts{-'profile'})
|
|
145
|
0 |
0 |
if ($opts{-'verbose'} and not $opts{-'verbose'} =~ /(?: \d+ | %[mfFlcCedrpPs] )/msx)
|
|
150
|
0 |
0 |
if (exists $opts{-'top'} and $opts{-'top'} < 0)
|
|
155
|
0 |
0 |
if (exists $opts{-'necessity'} and $opts{-'necessity'} < $Perl::ToPerl6::Command::NECESSITY_LOWEST || $opts{-'necessity'} > $Perl::ToPerl6::Command::NECESSITY_HIGHEST)
|
|
168
|
0 |
0 |
if ($msg)
|
|
182
|
0 |
0 |
if (not @args or @args == 1 and $args[0] eq '-') { }
|
|
189
|
0 |
0 |
unless (defined $code_string)
|
|
193
|
0 |
0 |
unless $code_string =~ / \S+ /msx
|
|
200
|
0 |
0 |
if (my $nonexistent = &first(sub {
not -e $_;
}
, @args))
|
|
209
|
0 |
0 |
-d $_ ? :
|
|
218
|
0 |
0 |
unless @files_to_transform
|
|
228
|
0 |
0 |
unless $mogrify->transformers
|
|
241
|
0 |
0 |
unless ($opts_ref->{'-statistics-only'})
|
|
246
|
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
}
})
|
|
247
|
0 |
0 |
if (my $exception = 'Perl::ToPerl6::Exception::Parse'->caught) { }
|
|
|
0 |
0 |
elsif ($Perl::ToPerl6::Command::EVAL_ERROR) { }
|
|
264
|
0 |
0 |
if ($$opts_ref{-'statistics'} or $opts_ref->{'-statistics-only'})
|
|
279
|
0 |
0 |
if ($opts_ref->{'-files-with-transformations'} or $opts_ref->{'-files-without-transformations'})
|
|
282
|
0 |
0 |
$number_of_transformations ? :
|
|
|
0 |
0 |
if not ref $file and $$opts_ref{$number_of_transformations ? '-files-with-transformations' : '-files-without-transformations'}
|
|
289
|
0 |
0 |
if ($$opts_ref{-'count'})
|
|
290
|
0 |
0 |
unless ref $file
|
|
296
|
0 |
0 |
unless (@transformations or $$opts_ref{-'quiet'})
|
|
297
|
0 |
0 |
unless ref $file
|
|
305
|
0 |
0 |
$verbosity eq $Perl::ToPerl6::Command::DEFAULT_VERBOSITY && @files > 1 ? :
|
|
310
|
0 |
0 |
unless (-f $file)
|
|
314
|
0 |
0 |
if ($mogrify->config->detail)
|
|
319
|
0 |
0 |
$color ? :
|
|
328
|
0 |
0 |
unless $pager_command
|
|
329
|
0 |
0 |
unless _at_tty()
|
|
331
|
0 |
0 |
unless open my $pager, '|-', $pager_command
|
|
344
|
0 |
0 |
if (not $opts_ref->{'-statistics-only'} and $statistics->total_transformations || !$$opts_ref{-'quiet'} && $statistics->modules)
|
|
367
|
0 |
0 |
if (defined $transformations_per_file)
|
|
374
|
0 |
0 |
if (defined $transformations_per_statement)
|
|
381
|
0 |
0 |
if (defined $transformations_per_line)
|
|
388
|
0 |
0 |
if ($statistics->total_transformations)
|
|
496
|
0 |
0 |
if _this_is_windows()
|
|
497
|
0 |
0 |
unless eval {
do {
require Term::ANSIColor;
'Term::ANSIColor'->VERSION($Perl::ToPerl6::Command::_MODULE_VERSION_TERM_ANSICOLOR);
1
}
}
|
|
520
|
0 |
0 |
unless defined $color
|
|
521
|
0 |
0 |
if $color eq $Perl::ToPerl6::Command::EMPTY
|
|
527
|
0 |
0 |
chomp $string ? :
|
|
534
|
0 |
0 |
if $Perl::ToPerl6::Command::OSNAME =~ /MSWin32/msx
|