blib/lib/XT/Util.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 2 | 3 | 66.6 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
31 | 0 | 1 | 1 | $files{$name} ||= do { (my $config_file = $name) =~ s/\.(PL|pl|pm|pmc|t)$//; from_json do { return $files{$name} = {} unless open my $fh, '<', "$config_file.config"; local $/ = <$fh> } } |