| line |
true |
false |
branch |
|
18
|
49 |
0 |
if defined $_[0] |
|
63
|
0 |
23 |
$spec =~ /^([-+])= (-?\d+)$/ ? : |
|
|
19 |
23 |
$spec =~ /^-?\d+$/ ? : |
|
64
|
0 |
42 |
unless defined $lev |
|
65
|
0 |
42 |
unless defined $min |
|
66
|
0 |
42 |
unless $lev >= $min |
|
67
|
0 |
42 |
unless defined $max |
|
68
|
0 |
42 |
unless $lev <= $max |
|
74
|
42 |
3 |
if (@_) |
|
75
|
0 |
42 |
if @_ > 1 |
|
79
|
37 |
5 |
if ($l != $self->{'log_level_num'}) |
|
89
|
0 |
0 |
if (@_) |
|
90
|
0 |
0 |
if @_ > 1 |
|
94
|
0 |
0 |
if ($self->{'log_level_min_num'} > $self->{'log_level_num'}) |
|
104
|
0 |
0 |
if (@_) |
|
105
|
0 |
0 |
if @_ > 1 |
|
109
|
0 |
0 |
if ($self->{'log_level_max_num'} < $self->{'log_level_num'}) |
|
120
|
3 |
121 |
if (@_) |
|
121
|
0 |
3 |
if @_ > 1 |
|
122
|
0 |
2 |
unless defined $_[0] and ref $_[0] eq 'GLOB' || ref $_[0] eq 'CODE' || ref($_[0])->can('print') |
|
126
|
3 |
0 |
unless $self->{'writer'} |
|
128
|
12 |
112 |
defined $self->{'output'} ? : |
|
134
|
14 |
85 |
if (@_) |
|
135
|
0 |
14 |
unless @_ == 1 and defined $_[0] and !ref($_[0]) || ref $_[0] eq 'CODE' |
|
137
|
13 |
1 |
unless (ref $_[0]) |
|
147
|
0 |
13 |
unless defined $x and ref $x eq 'CODE' |
|
152
|
14 |
0 |
unless $self->{'writer'} |
|
154
|
54 |
45 |
defined $self->{'format'} ? : |
|
160
|
1 |
0 |
if (@_) |
|
161
|
0 |
1 |
unless @_ == 1 and !defined($_[0]) || ref $_[0] eq 'CODE' |
|
180
|
0 |
27 |
if @_ == 1 and ref $_[0] eq 'HASH' |
|
216
|
18 |
0 |
@_ == 1 && ref $_[0] eq 'HASH' ? : |
|
219
|
1 |
17 |
if @unknown |
|
234
|
0 |
0 |
ref $v eq 'HASH' ? : |
|
242
|
1 |
5 |
ref $v eq 'HASH' ? : |
|
251
|
1 |
0 |
$rt eq 'ARRAY' ? : |
|
|
0 |
1 |
$rt eq 'HASH' ? : |
|
257
|
0 |
18 |
if defined $cfg->{'format'} |
|
263
|
0 |
18 |
if defined $cfg->{'writer'} |
|
277
|
0 |
12 |
unless defined $offset and $offset =~ /^-?\d+$/ and @_ == 2 |
|
288
|
0 |
11 |
if @unknown |
|
290
|
4 |
7 |
if (defined $spec{'log_level'} and defined $ENV{$spec{'log_level'}}) |
|
293
|
7 |
4 |
if (defined $spec{'debug'} and defined $ENV{$spec{'debug'}}) |
|
300
|
4 |
3 |
if $level =~ /^-?\d+$/ |
|
309
|
9 |
3 |
if $ofs |
|
316
|
6 |
212 |
unless defined $_[0] |
|
317
|
144 |
68 |
unless ref $_[0] |
|
318
|
58 |
10 |
if ref $_[0] eq 'ARRAY' |
|
319
|
10 |
0 |
if ref $_[0] eq 'Regexp' |
|
324
|
38 |
58 |
@list == 1 ? : |
|
|
6 |
96 |
@list == 0 ? : |
|
332
|
0 |
34 |
if @unknown |
|
334
|
0 |
34 |
unless defined $spec{'array'} |
|
342
|
3 |
89 |
if $array->[$i] =~ /$spec->{'stop'}/ |
|
343
|
10 |
79 |
if ($array->[$i] =~ /^-[^-=][^-=]+$/ and $spec->{'bundle'}) { } |
|
|
34 |
45 |
elsif ($array->[$i] =~ /$spec->{'verbose'}/) { } |
|
|
22 |
23 |
elsif ($array->[$i] =~ /$spec->{'quiet'}/) { } |
|
350
|
5 |
5 |
if ($spec->{'remove'} and $len != @un_bundled) |
|
351
|
1 |
4 |
if (@un_bundled) { } |
|
360
|
16 |
18 |
if $spec->{'remove'} |
|
364
|
10 |
12 |
if $spec->{'remove'} |
|
376
|
0 |
1 |
if @unknown |
|
379
|
1 |
0 |
if $spec{'verbose'} |
|
382
|
1 |
0 |
if $spec{'quiet'} |
|
388
|
39 |
1 |
unless $self->{'writer'} |
|
397
|
0 |
36 |
unless my $writer = $self->_build_writer_eval_in_clean_scope($code, \$err) |
|
411
|
1 |
35 |
if ($format =~ /\$\{?category(\W|$)/) |
|
414
|
6 |
30 |
if ($format =~ /\$\{?(package|file|line|file_brief)(\W|$)/) |
|
418
|
3 |
3 |
if $format =~ /\$\{?file_brief(\W|$)/ |
|
422
|
23 |
13 |
if ($format =~ /\$\{?level_prefix(\W|$)/) |
|
426
|
34 |
2 |
if (ref $output eq 'GLOB') { } |
|
|
1 |
1 |
elsif (ref($output)->can('print')) { } |
|
|
1 |
0 |
elsif (ref $output eq 'CODE') { } |
|
436
|
1 |
35 |
if (ref $format eq 'CODE') { } |
|
450
|
34 |
2 |
if (ref $thing eq 'GLOB') { } |
|
|
0 |
2 |
elsif (ref($thing)->can('autoflush')) { } |