_formatters} }) {
if ($f =~ /\A\[/) {
require JSON::PP;
$f = JSON::PP::decode_json($f);
} else {
if ($f =~ /(.+)=(.*)/) {
&& $r0 =~ /\A\{/) {
require JSON::PP;
$r = JSON::PP::decode_json($r0);
} else {
A\[/) {
require JSON::PP;
$f = JSON::PP::decode_json($f);
} else {
ne option. An example (the lines below are writen in configuration
file in IOD syntax, as rows of JSON hashes):
; remove all comments in field values when 'hide_field_name' option is set
; (which u
, {ARG1NAME => ARG1VAL, ...}]
If formatter name begins with C<[> character, it will be parsed as JSON. Example:
['Str::remove_comment', {'style':'cpp'}]
Note that this option overrides C<--field-v
name},
meta => $args{meta},
common_opts => $common_opts,
per_arg_json => 1,
);
print $res->[2];
}
sub _run_cmd {
require Perinci::Result::Format::Lite;
argv},
meta => $args{meta},
check_required_args => 0,
per_arg_json => 1,
common_opts => $common_opts,
);
if ($res->[0] == 501) {
ne option. An example (the lines below are writen in configuration
file in IOD syntax, as rows of JSON hashes):
; remove all comments in field values when 'hide_field_name' option is set
; (w
E, {ARG1NAME => ARG1VAL, ...}]
If formatter name begins with `[` character, it will be parsed as JSON. Example:
['Str::remove_comment', {'style':'cpp'}]
Note that this option overrides `--field-va