| line |
true |
false |
branch |
|
19
|
27 |
0 |
if ('warnings'->can('register_categories')) { } |
|
27
|
0 |
27 |
$debug ? : |
|
|
0 |
27 |
&looks_like_number($debug) ? : |
|
31
|
0 |
27 |
$debug == 4 ? : |
|
|
0 |
27 |
$debug == 3 ? : |
|
|
0 |
27 |
$debug == 2 ? : |
|
|
0 |
27 |
$debug == 1 ? : |
|
39
|
0 |
429 |
@_ % 2 == 0 ? : |
|
53
|
2 |
427 |
$error =~ /at \H+ line \d+/ ? : |
|
54
|
5322 |
0 |
/^\h*(.*?)\.?$/ ? : |
|
63
|
2 |
429 |
@_ && $_[0] eq 'File::KDBX::Error' ? : |
|
64
|
2 |
424 |
$class ? : |
|
|
5 |
426 |
&blessed($_[0]) && $_[0]->isa('File::KDBX::Error') ? : |
|
94
|
118 |
0 |
unless $msg =~ /[\.\!\?]$/ |
|
105
|
118 |
0 |
unless $msg =~ /\n$/ |
|
117
|
1 |
13 |
unless $File::KDBX::WARNINGS // 1 |
|
124
|
0 |
13 |
if (my $fatal = "warnings"->can("fatal_enabled_at_level")) |
|
126
|
0 |
0 |
if &$fatal($WARNINGS_CATEGORY, $blame) |
|
129
|
0 |
13 |
if (my $enabled = 'warnings'->can('enabled_at_level')) { } |
|
|
13 |
0 |
elsif ($enabled = 'warnings'->can('enabled')) { } |
|
131
|
0 |
0 |
if &$enabled($WARNINGS_CATEGORY, $blame) |
|
134
|
13 |
0 |
if &$enabled($WARNINGS_CATEGORY) |
|
149
|
0 |
0 |
unless $package |
|
150
|
0 |
0 |
unless $package =~ /^\Q$WARNINGS_CATEGORY\E/ |