| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless $args{'git_work_tree'} and -d $args{'git_work_tree'}
|
|
61
|
0 |
0 |
if exists $args{'tracked_files'}
|
|
64
|
0 |
0 |
if exists $args{'file_criteria'}
|
|
67
|
0 |
0 |
if exists $args{'current_file_idx'}
|
|
75
|
0 |
0 |
if &Scalar::Util::blessed($class)
|
|
78
|
0 |
0 |
unless $git_work_tree and -d $git_work_tree
|
|
121
|
0 |
0 |
ref $_ eq 'HASH' ? :
|
|
|
0 |
0 |
&Scalar::Util::blessed($_) && $_->isa('App::Critique::Session::File') ? :
|
|
150
|
0 |
0 |
$self->{'perl_critic_profile'} ? :
|
|
|
0 |
0 |
$self->{'git_work_tree'} ? :
|
|
163
|
0 |
0 |
unless $path->exists and $path->is_file
|
|
186
|
0 |
0 |
unless -e $file
|
|
194
|
0 |
0 |
unless (eval {
do {
my $json = $App::Critique::JSON->encode($data);
$file->parent->mkpath unless -e $file;
my $fh = $file->openw;
$fh->print($json);
$fh->close;
1
}
})
|
|
232
|
0 |
0 |
unless $git_branch
|
|
241
|
0 |
0 |
if exists $args{'git_branch'} and $args{'git_branch'} ne $git_branch
|
|
251
|
0 |
0 |
if ($args{'perl_critic_policy'}) { }
|
|
257
|
0 |
0 |
$args{'perl_critic_profile'} ? :
|
|
|
0 |
0 |
$args{'perl_critic_theme'} ? :
|
|
262
|
0 |
0 |
if $args{'perl_critic_profile'}
|