| line |
true |
false |
branch |
|
49
|
40 |
94 |
unless (@site_policy_names)
|
|
58
|
0 |
40 |
unless ($eval_worked)
|
|
59
|
0 |
0 |
if ($Perl::Critic::PolicyFactory::EVAL_ERROR)
|
|
68
|
0 |
40 |
unless (@site_policy_names)
|
|
80
|
51 |
83 |
if ($test_mode and &any(sub {
|
|
83
|
0 |
51 |
if ($extra_test_policies)
|
|
130
|
0 |
3076 |
unless $self->{'_profile'} = $profile
|
|
138
|
3076 |
0 |
if ($profile_strictness ne $Perl::Critic::PolicyFactory::PROFILE_STRICTNESS_QUIET)
|
|
142
|
147 |
2929 |
if ($profile_strictness eq $Perl::Critic::PolicyFactory::PROFILE_STRICTNESS_FATAL or $incoming_errors and @{$incoming_errors->exceptions;})
|
|
146
|
2 |
145 |
$incoming_errors ? :
|
|
154
|
0 |
155 |
if (not $incoming_errors and $errors and $errors->has_exceptions)
|
|
173
|
1 |
15272 |
unless my $policy_name = $args{'-name'}
|
|
184
|
2910 |
12362 |
if ($args{'-params'}) { }
|
|
206
|
81 |
1 |
$incoming_errors ? :
|
|
217
|
11889 |
1 |
if ($policy)
|
|
222
|
0 |
82 |
if (not $incoming_errors and $errors->has_exceptions)
|
|
273
|
151 |
30243 |
unless ($eval_worked)
|
|
274
|
151 |
0 |
if ($eval_error)
|
|
277
|
149 |
2 |
if (ref $exception)
|
|
301
|
2 |
1831 |
unless (exists $known_policies{$policy_name})
|
|
304
|
0 |
2 |
if ($errors) { }
|