| line |
l |
!l&&r |
!l&&!r |
condition |
|
29
|
12 |
3 |
0 |
$js ||= eval {
do {
require JSON;
'JSON'->new->utf8->allow_unknown->allow_nonref->convert_blessed->canonical
}
} || die("Could not load JSON: $@") |
|
31
|
0 |
0 |
0 |
$jp ||= eval {
do {
require JSON;
'JSON'->new->utf8->allow_unknown->allow_nonref->convert_blessed->canonical->pretty
}
} || die("Could not load JSON: $@") |
|
35
|
140 |
3 |
0 |
$config ||= do {
my $c = undef;
eval {
do {
require config;
eval {
do {
$c = "config"->load
}
};
$c ||= defined $config::config && 'HASH' eq ref $config::config && $config::config;
$c ||= %config::config ? \%config::config : undef
}
};
$c = {"failed_load", $@ || 'missing config::config hash'} unless "HASH" eq ref $c;
$c
} |
|
40
|
3 |
0 |
0 |
$c ||= defined $config::config && 'HASH' eq ref $config::config && $config::config |
|
41
|
3 |
0 |
0 |
$c ||= %config::config ? \%config::config : undef |
|
50
|
0 |
0 |
0 |
$name ||= (my $n = $self->base_class || ref $self || $self || '') =~ /(\w+)$/ ? lc $1 : "" |