| line |
true |
false |
branch |
|
120
|
9 |
0 |
if $_[0] eq 'Su::Log' or ref $_[0] eq 'Su::Log' |
|
124
|
9 |
0 |
if ($class) { } |
|
129
|
1 |
8 |
if (grep {$$_{'class'} =~ /^$class$/;} @target_class) |
|
138
|
1 |
8 |
if ($bRegex) { } |
|
177
|
13 |
0 |
if $_[0] eq 'Su::Log' or ref $_[0] eq 'Su::Log' |
|
181
|
4 |
9 |
if ($class) { } |
|
184
|
3 |
1 |
if (not ref $class) { } |
|
|
1 |
0 |
elsif (ref $class eq 'Regexp') { } |
|
185
|
3 |
0 |
unless (grep /^$class$/, @exclusion_class) |
|
194
|
1 |
0 |
unless (grep {$_ eq $class;} @exclusion_class) |
|
250
|
7 |
0 |
if ref $_[0] eq 'Su::Log' or $_[0] eq 'Su::Log' |
|
254
|
3 |
4 |
if ($class) { } |
|
256
|
2 |
1 |
if ($bRegex) { } |
|
281
|
0 |
0 |
if $_[0] eq 'Su::Log' |
|
293
|
0 |
0 |
if $_[0] eq 'Su::Log' |
|
314
|
1 |
162 |
if ref $self |
|
321
|
152 |
11 |
unless ($class_name) |
|
325
|
152 |
11 |
unless ($class_name) |
|
348
|
3 |
2534 |
if ($all_on) { } |
|
|
4 |
2530 |
elsif ($all_off) { } |
|
357
|
81 |
2449 |
if (ref $self) |
|
358
|
81 |
0 |
$$self{'class_name'} ? : |
|
372
|
6 |
2524 |
if (grep {ref $_ eq 'Regexp' ? $self_class_name =~ /$_/ : $self_class_name =~ /^$_$/;} @exclusion_class) { } |
|
|
24 |
2500 |
elsif (my(@info) = grep({my $bRegex = ref $$_{'class'} eq 'Regexp';
if ($bRegex) {
$self_class_name =~ /$$_{'class'}/;
}
else {
$self_class_name =~ /^$$_{'class'}$/;
} ;} @target_class)) { } |
|
373
|
2 |
6 |
ref $_ eq 'Regexp' ? : |
|
385
|
1 |
46 |
if ($bRegex) { } |
|
426
|
2 |
0 |
if ref $_[0] eq 'Su::Log' or $_[0] eq 'Su::Log' |
|
429
|
0 |
2 |
unless grep /^$passed_level$/, keys %{$level_hash;} |
|
447
|
5 |
0 |
if ref $_[0] eq 'Su::Log' or $_[0] eq 'Su::Log' |
|
450
|
0 |
5 |
if defined $passed_level and not grep(/^$passed_level$/, keys %{$level_hash;}) |
|
462
|
73 |
0 |
if ref $_[0] eq 'Su::Log' |
|
463
|
0 |
73 |
unless $self |
|
474
|
64 |
9 |
unless ($compare_target_level) |
|
475
|
3 |
61 |
if (defined $global_log_level) { } |
|
|
61 |
0 |
elsif ($$self{'level'}) { } |
|
485
|
38 |
35 |
$$level_hash{$arg} >= $$level_hash{$compare_target_level} ? : |
|
489
|
88 |
2449 |
if ref $_[0] eq 'Su::Log' |
|
493
|
1 |
2536 |
$$self{'log_handler'} ? : |
|
494
|
2449 |
88 |
_is_empty($self) ? : |
|
496
|
38 |
2499 |
if ($$target_info{'is_target'} and $self->is_large_level($method_level, $$target_info{'level'})) |
|
510
|
2480 |
0 |
if ref $_[0] eq 'Su::Log' or $_[0] eq 'Su::Log' |
|
525
|
42 |
0 |
if ref $_[0] eq 'Su::Log' or $_[0] eq 'Su::Log' |
|
540
|
3 |
0 |
if ref $_[0] eq 'Su::Log' or $_[0] eq 'Su::Log' |
|
553
|
4 |
0 |
if ref $_[0] eq 'Su::Log' or $_[0] eq 'Su::Log' |
|
566
|
4 |
0 |
if ref $_[0] eq 'Su::Log' or $_[0] eq 'Su::Log' |
|
579
|
4 |
0 |
if ref $_[0] eq 'Su::Log' or $_[0] eq 'Su::Log' |
|
596
|
0 |
0 |
if ref $_[0] eq 'Su::Log' |
|
599
|
0 |
0 |
$$self{'log_handler'} ? : |
|
600
|
0 |
0 |
_is_empty($self) ? : |
|
|
0 |
0 |
if (is_target(_is_empty($self) ? caller() : $self) and grep /^$tag$/, @target_tag) |
|
635
|
1 |
0 |
if ref $_[0] eq 'Su::Log' |
|
639
|
1 |
0 |
if ($handler) { } |
|
640
|
1 |
0 |
if ($self) { } |
|
641
|
1 |
0 |
if (ref $handler eq 'CODE') { } |
|
651
|
0 |
0 |
if (ref $handler eq 'CODE') { } |
|
677
|
0 |
0 |
if ref $_[0] eq 'Su::Log' |
|
679
|
0 |
0 |
unless open my $F, '>>', $log_file_name |
|
697
|
0 |
2537 |
unless $arg |
|
698
|
2449 |
88 |
if (ref $arg eq 'HASH') |
|
699
|
2449 |
0 |
unless scalar keys %{$arg;} |