serialize.pl6

my Mu $sh := nqp::list_s();
my $file   = 'TEST_FILE'.IO;

unless $file.e {
    my Mu $sc := nqp::createsc('FLUBBER');
    my $obj = { foo => 'bar' };
    nqp::scsetobj($sc, 0, $obj);
    nqp::setobjsc($obj, $sc);
    $file.IO.spurt: nqp::p6box_s(nqp::serialize($sc, $sh));
}

my str $serialized  = nqp::unbox_s($file.slurp);
my $dsc := nqp::createsc('BLUBBER');
nqp::deserialize($serialized, $dsc, $sh, nqp::list(), nqp::null());

say nqp::scobjcount($dsc);
say nqp::scgetobj($dsc, 0);