How to convert bool values to 1 and 0?

[bessarabov]

Here is the code:

use JSON::PP;

use Data::Printer filters => {
    'JSON::PP::Boolean' => sub { $_[0] ? 1 : 0 }
} ;

my $data = decode_json '{
    "a":true,
    "b":false,
    "c":true
}';

p $data;

it outputs:

\ {
    a   1,
    b   0,
    c   var{a}
}

How can I make it to output

\ {
    a   1,
    b   0,
    c   1
}

?

PS this question was inspired by https://www.jwz.org/blog/2016/10/death-to-jsonppboolean/ (and a tweet https://twitter.com/jwz/status/792831646525378560 )

[dur-randir]

This can be achieved with more-or-less public interface using external filters:

package Data::Printer::Filter::JPB;

use Data::Printer::Filter;

filter 'JSON::PP::Boolean', sub {
    $_[0] ? 1 : 0
}, {show_repeated => 1};

use JSON::PP;

use Data::Printer filters => {
    -external => [ 'JPB' ],
};

my $data = decode_json '{
    "a":true,
    "b":false,
    "c":true
}';

p $data;

For inline filters, there's no easy way except for hacking into internal options:

p($data, _seen_override => {'JSON::PP::Boolean' => 1} );

[bessarabov]

@dur-randir thank you! This is exactly what i was looking for.