… | |
… | |
536 | if (my $filter = $meta->{cfutil_filter}) { |
536 | if (my $filter = $meta->{cfutil_filter}) { |
537 | if ($filter eq "yaml2json") { |
537 | if ($filter eq "yaml2json") { |
538 | $data = JSON::XS::encode_json YAML::Syck::Load $data; |
538 | $data = JSON::XS::encode_json YAML::Syck::Load $data; |
539 | } elsif ($filter eq "json2json") { |
539 | } elsif ($filter eq "json2json") { |
540 | $data = JSON::XS::encode_json JSON::XS->relaxed->utf8->decode ($data); |
540 | $data = JSON::XS::encode_json JSON::XS->relaxed->utf8->decode ($data); |
|
|
541 | } elsif ($filter eq "perl2json") { |
|
|
542 | $data = eval $data; die if $@; |
|
|
543 | $data = JSON::XS::encode_json $data; |
541 | } else { |
544 | } else { |
542 | warn "$dir/$file: unknown filter $filter, skipping\n"; |
545 | warn "$dir/$file: unknown filter $filter, skipping\n"; |
543 | } |
546 | } |
544 | } |
547 | } |
545 | |
548 | |