Yet Another CPAN Grep

Storable-AMF ( G/GR/GRIAN/Storable-AMF-1.23.tar.gz, GRIAN, 2016; MetaCPAN )

Storable-AMF/AMF.xs ( view source; MetaCPAN )

#define OPT_RAISE_ERROR   8
#define OPT_MILLSEC_DATE  16
#define OPT_PREFER_NUMBER 32
#define OPT_JSON_BOOLEAN  64
#define OPT_MAPPER        128
#define OPT_TARG          256
#define OPT_SKIP_BAD

' ){
                if ( sv_isa(one, "JSON::PP::Boolean")){
                    is_perl_bool =  1;
                }
                else if ( sv_isa(one, "JSON::XS::Boolean") ){

_ struct io_struct *io, bool value){
    AV *Bool;
    SV *sv;
    if (  0 == ( io->options & OPT_JSON_BOOLEAN ) ){
	sv = boolSV( value );
	/* SvREFCNT_inc_simple_void_NN( sv ); */
	return sv;
    }

Storable-AMF ( G/GR/GRIAN/Storable-AMF-1.23.tar.gz, GRIAN, 2016; MetaCPAN )

Storable-AMF/lib/Storable/AMF0.pm ( view source; MetaCPAN )

er 'import';
use Carp qw(croak);
{   our @Bool = (bless( do{\(my $o = 0)},'JSON::PP::Boolean'), bless( do{\(my $o = 1)},'JSON::PP::Boolean')); 
    local $@; 
    eval { 
	require Types::Serialiser;

ialiser::false(), Types::Serialiser::true());
	1
    } or 
    eval {
	require JSON::XS;
	@Bool = (JSON::XS::false(), JSON::XS::true());
	1
    }; 
};

# Items to export into callers namespace by defa



  # JSON::XS boolean support
  
  use JSON::XS;

  $json =  encode_json( thaw( $amf0, parse_serializator_option( 'json_boolean' ))); #  

  $amf_with_boolean = freeze( $JSON::XS::true  or $JSON::XS: