| line |
true |
false |
branch |
|
25
|
0 |
0 |
unless $args{'git_work_tree'} and -d $args{'git_work_tree'}
|
|
43
|
0 |
0 |
if $args{'perl_critic_profile'}
|
|
70
|
0 |
0 |
if exists $args{'tracked_files'}
|
|
73
|
0 |
0 |
if exists $args{'file_criteria'}
|
|
76
|
0 |
0 |
if exists $args{'current_file_idx'}
|
|
84
|
0 |
0 |
if &Scalar::Util::blessed($class)
|
|
87
|
0 |
0 |
unless $git_work_tree and -d $git_work_tree
|
|
135
|
0 |
0 |
ref $_ eq 'HASH' ? :
|
|
|
0 |
0 |
&Scalar::Util::blessed($_) && $_->isa('App::Critique::Session::File') ? :
|
|
165
|
0 |
0 |
$self->{'perl_critic_profile'} ? :
|
|
|
0 |
0 |
$self->{'git_work_tree'} ? :
|
|
178
|
0 |
0 |
unless $path->exists and $path->is_file
|
|
201
|
0 |
0 |
unless -e $file
|
|
209
|
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
}
})
|
|
249
|
0 |
0 |
unless $git_branch
|
|
265
|
0 |
0 |
if exists $args{'git_branch'} and $args{'git_branch'} ne $git_branch
|
|
271
|
0 |
0 |
if ($git_head_sha) { }
|
|
278
|
0 |
0 |
if defined $possible_branch and $possible_branch ne $git_branch
|
|
285
|
0 |
0 |
unless $git_head_sha
|
|
302
|
0 |
0 |
if ($git_work_tree_updir)
|
|
317
|
0 |
0 |
if ($args{'perl_critic_policy'}) { }
|
|
323
|
0 |
0 |
$args{'perl_critic_profile'} ? :
|
|
|
0 |
0 |
$args{'perl_critic_theme'} ? :
|
|
328
|
0 |
0 |
if $args{'perl_critic_profile'}
|