| line |
true |
false |
branch |
|
62
|
3 |
30 |
ref $_[0] eq 'HASH' ? : |
|
64
|
1 |
32 |
exists $opts->{'is_fatal'} ? : |
|
67
|
6 |
27 |
if (defined(my $try = $nested_tries[-1])) { } |
|
68
|
0 |
1 |
unless $reporter->{'needs'}{$reason} |
|
|
1 |
5 |
unless $stop or $try->hides($reason) |
|
70
|
6 |
0 |
if $try->needs($reason) |
|
73
|
18 |
9 |
unless $reporter->{'needs'}{$reason} |
|
76
|
0 |
33 |
unless &is_reason($reason) |
|
80
|
18 |
15 |
unless @disp or $stop |
|
84
|
2 |
13 |
if &use_errno($reason) and not defined $opts->{'errno'} |
|
86
|
0 |
15 |
if (my $to = delete $opts->{'to'}) |
|
88
|
0 |
0 |
if (ref $to eq 'ARRAY') { } |
|
95
|
0 |
0 |
unless @disp or $stop |
|
101
|
0 |
15 |
unless ('Log::Report::Dispatcher'->can('collectLocation')) |
|
108
|
12 |
3 |
if (not &blessed($message)) { } |
|
|
3 |
0 |
elsif ($message->isa('Log::Report::Exception')) { } |
|
|
0 |
0 |
elsif ($message->isa('Log::Report::Message')) { } |
|
110
|
0 |
12 |
if @_ % 2 |
|
118
|
0 |
0 |
unless @_ == 0 |
|
121
|
0 |
15 |
if (my $to = $message->to) |
|
123
|
0 |
0 |
unless @disp |
|
127
|
1 |
14 |
if (my $filters = $reporter->{'filters'}) { } |
|
133
|
1 |
1 |
if keys %{$$filter[1];} and not $filter->[1]{$d->name} |
|
135
|
0 |
1 |
unless $r |
|
144
|
6 |
9 |
if ($stop) |
|
146
|
6 |
0 |
defined $^S ? : |
|
|
0 |
6 |
unless defined $^S ? $^S : 1 |
|
165
|
18 |
13 |
unless ($disp_actions{$_[0]}) |
|
171
|
13 |
5 |
unless ($reopen_disp) |
|
173
|
0 |
13 |
if (defined $has and $has ne $default_dispatcher) |
|
174
|
0 |
0 |
$name eq 'default' ? : |
|
182
|
0 |
18 |
if @disps != @$disps |
|
187
|
18 |
0 |
if $disp |
|
191
|
18 |
0 |
$disp ? : |
|
195
|
7 |
6 |
if ($command eq 'list') |
|
196
|
0 |
7 |
if @_ |
|
199
|
1 |
6 |
if @nested_tries |
|
202
|
0 |
6 |
if ($command eq 'needs') |
|
204
|
0 |
0 |
unless &is_reason($reason) |
|
207
|
0 |
0 |
$disp ? : |
|
209
|
2 |
4 |
if ($command eq 'filter') |
|
211
|
0 |
2 |
unless ref $code eq 'CODE' |
|
217
|
0 |
4 |
if ($command eq 'active-try') |
|
220
|
0 |
4 |
if ($command eq 'do-not-reopen') |
|
225
|
0 |
4 |
$command eq 'mode' ? : |
|
230
|
0 |
4 |
if ($all_disp) { } |
|
237
|
0 |
0 |
if @disps > 1 and not wantarray and defined wantarray |
|
240
|
4 |
0 |
if ($command eq 'close') { } |
|
|
0 |
0 |
elsif ($command eq 'enable') { } |
|
|
0 |
0 |
elsif ($command eq 'disable') { } |
|
|
0 |
0 |
elsif ($command eq 'mode') { } |
|
248
|
0 |
0 |
if $all_disp |
|
253
|
4 |
0 |
if $command ne 'find' |
|
255
|
0 |
4 |
wantarray ? : |
|
277
|
0 |
15 |
if @_ % 2 |
|
288
|
9 |
6 |
if (not defined wantarray) { } |
|
|
1 |
5 |
elsif (wantarray) { } |
|
296
|
6 |
4 |
if (not $is_exception and $err and not $disp->wasFatal) |
|
302
|
5 |
10 |
$is_exception ? : |
|
|
11 |
4 |
if $is_exception ? $err->isFatal : $err |
|
307
|
1 |
14 |
wantarray ? : |
|
338
|
0 |
50 |
unless @_ % 2 |
|
408
|
0 |
110 |
if ($INC{'Log/Report/Minimal.pm'}) |
|
410
|
0 |
0 |
if (index($pkg, 'Log::Report::') != 0) |
|
413
|
0 |
0 |
if @pkgs |
|
419
|
104 |
6 |
@_ % 2 ? : |
|
425
|
98 |
12 |
if (defined $textdomain) |
|
432
|
0 |
110 |
if (exists $opts{'mode'}) |
|
439
|
0 |
110 |
if (my $in = delete $opts{'import'}) { } |
|
440
|
0 |
0 |
ref $in eq 'ARRAY' ? : |
|
446
|
110 |
0 |
if ($syntax eq 'SHORT') { } |
|
|
0 |
0 |
elsif ($syntax ne 'REPORT' and $syntax ne 'LONG') { } |
|
455
|
0 |
110 |
if (my $msg_class = delete $opts{'message_class'}) |
|
456
|
0 |
0 |
unless $msg_class->isa($lrm) |
|
466
|
110 |
0 |
if (not %opts) { } |
|
|
0 |
0 |
elsif ($domain) { } |
|
480
|
0 |
0 |
unless my $domain = &textdomain($name) |
|
484
|
0 |
0 |
unless @_ |
|
487
|
0 |
0 |
unless defined $pkg |
|
490
|
0 |
0 |
unless $translator->isa('Log::Report::Translator') |
|
499
|
0 |
208 |
if (@_ == 1 and &blessed($_[0])) |
|
501
|
0 |
0 |
unless $domain->isa('Log::Report::Domain') |
|
505
|
0 |
208 |
if (@_ == 2) |
|
507
|
0 |
0 |
if $_[1] eq 'DELETE' |
|
508
|
0 |
0 |
if $_[1] eq 'EXISTS' |
|
515
|
0 |
208 |
if @_ |
|
523
|
0 |
0 |
ref $thing ? : |