| line |
true |
false |
branch |
|
37
|
16 |
0 |
wantarray ? : |
|
60
|
10 |
2 |
unless (defined $$self{'conf'}{'should_rewrite_config'}) |
|
63
|
3 |
9 |
if (my $ns = $$self{'conf'}{'rule_namespaces'}) |
|
64
|
3 |
0 |
unless ref $ns eq 'ARRAY' |
|
67
|
12 |
0 |
if (eval {
do {
require Term::Encoding
}
}) |
|
73
|
0 |
12 |
unless $$config{'plugins'} |
|
75
|
3 |
9 |
if $$self{'conf'}{'should_rewrite_config'} and @{$$self{'rewrite_tasks'};} |
|
97
|
2 |
1 |
unless ($$self{'config_path'}) |
|
103
|
0 |
1 |
unless open my $fh, '<', $$self{'config_path'} |
|
112
|
1 |
0 |
if ($data =~ s/^(\s+$key:\s+)\Q$old_value\E[ \t]*$/$1$new_value/m) { } |
|
119
|
1 |
0 |
if ($count) |
|
121
|
0 |
1 |
unless open my $fh, '>', $$self{'config_path'} |
|
134
|
0 |
12 |
unless ($$self{'conf'}{'cache'}{'base'}) |
|
138
|
0 |
0 |
$base eq 'config' ? : |
|
143
|
0 |
12 |
unless $cache_class->require |
|
149
|
0 |
0 |
$@ ? : |
|
155
|
0 |
12 |
unless ref $plugin_path |
|
157
|
0 |
0 |
unless (opendir my $dir, $path) |
|
162
|
0 |
0 |
if $ent =~ /^\./ |
|
164
|
0 |
0 |
if (-f $ent and $ent =~ /\.pm$/) { } |
|
|
0 |
0 |
elsif (-d $ent) { } |
|
168
|
0 |
0 |
if (-e $lib and -d _) { } |
|
184
|
16 |
0 |
unless $$plugin{'disable'} |
|
190
|
0 |
0 |
unless my $pkg = $self->extract_package($file) |
|
199
|
0 |
0 |
unless open my $fh, '<', $file |
|
201
|
0 |
0 |
if /^package ($ns.*?);/ |
|
208
|
0 |
0 |
unless ($self->is_loaded($$plugin{'module'})) |
|
218
|
0 |
0 |
ref $stuff && ref $stuff eq 'Regexp' ? : |
|
223
|
0 |
0 |
if &$sub($module) |
|
232
|
16 |
0 |
unless ($module =~ s/^\+//) |
|
236
|
0 |
16 |
if ($module->isa($$self{'conf'}{'plugin_namespace'})) { } |
|
|
0 |
16 |
elsif (my $path = $self->plugins_path->{$module}) { } |
|
239
|
0 |
0 |
unless $path->require |
|
241
|
0 |
16 |
unless $module->require |
|
246
|
0 |
16 |
unless $cache_proxy_class->require |
|
257
|
16 |
11 |
unless $plugin->rule_hook |
|
272
|
12 |
5 |
if ($plugin->rule->dispatch($plugin, $hook, $args)) { } |
|
275
|
0 |
12 |
if $callback |
|
276
|
0 |
12 |
if ($once) { } |
|
277
|
0 |
0 |
if defined $ret |
|
285
|
0 |
13 |
if $once |
|
306
|
61 |
12 |
unless $self->should_log($level) |
|
310
|
12 |
0 |
unless ($caller) |
|
313
|
12 |
0 |
unless $c =~ /Plugin|Rule/ |
|
319
|
12 |
0 |
if ($self->conf->{'log'}{'encoding'}) |
|
320
|
12 |
0 |
unless utf8::is_utf8($msg) |