pos => 0,
},
);
sub _decode_json {
state $json = do {
require JSON::MaybeXS;
JSON::MaybeXS->new->allow_nonref;
};
$json->decode(shift);
}
sub _parse_layout {
rig_line";
$name = $1;
eval { $name = _decode_json($name) };
die "(layout):$linum: Invalid JSON string in filename: $@: $1"
if $@;
} else {
$sym_target = $1;
eval { $sym_target = _decode_json($sym_target) };
die "(layout):$linum: Invalid JSON string in symlink target: $@: $1"
if $@;