Yet Another CPAN Grep

Neo4j-Bolt ( A/AJ/AJNN/Neo4j-Bolt-0.5001-TRIAL2.tar.gz, AJNN, 2025; MetaCPAN )

Neo4j-Bolt/lib/Neo4j/Bolt.pm ( view source; MetaCPAN )

--       ---- --------------
 Null             undef
 Bool             Perl core bool (v5.36+) or JSON::PP::Boolean
 Int              scalar
 Float            scalar
 String           scalar
 Bytes

Neo4j-Bolt ( A/AJ/AJNN/Neo4j-Bolt-0.5001-TRIAL2.tar.gz, AJNN, 2025; MetaCPAN )

Neo4j-Bolt/lib/Neo4j/Bolt/CTypeHandlers.pm ( view source; MetaCPAN )


use warnings;

BEGIN {
  our $VERSION = "0.5001";
  require XSLoader;
  XSLoader::load();
}

use JSON::PP; # operator overloading for boolean values
use Neo4j::Bolt::Node;
use Neo4j::Bolt::Relationsh

Neo4j-Bolt ( A/AJ/AJNN/Neo4j-Bolt-0.5001-TRIAL2.tar.gz, AJNN, 2025; MetaCPAN )

Neo4j-Bolt/lib/Neo4j/Bolt/CTypeHandlers.xs ( view source; MetaCPAN )

f (SvOBJECT(ref)) {
      if (reftype < SVt_PVAV) { // blessed scalar ref
        if (sv_isa(sv, "JSON::PP::Boolean")) {
          return SViv_to_neo4j_bool(ref);
        }
      }
      if (reftype =

ewSVsv(neo4j_bool_value(value) ? &PL_sv_yes : &PL_sv_no);
#else
  HV* boolean_stash = gv_stashpv("JSON::PP::Boolean", GV_ADD);
  SV* scalar = newSViv( (IV) neo4j_bool_value(value) );
  return sv_bless

Neo4j-Bolt ( A/AJ/AJNN/Neo4j-Bolt-0.5001-TRIAL2.tar.gz, AJNN, 2025; MetaCPAN )

Neo4j-Bolt/lib/Neo4j/Bolt/NeoValue.xs ( view source; MetaCPAN )

 SvRV(sv);
    if (SvTYPE(ref) < SVt_PVAV) { // scalar ref
      if (SvOBJECT(ref) && sv_isa(sv, "JSON::PP::Boolean")) {
        return &PL_sv_yes;
      }
      if (SvIOK(ref) && SvIV(ref) >> 1 == 0)