Select Code to Download

    class example_record 
       does Compact 
       is finalized
...
          return $!presentation_cache;
          }
       }

    my Buf $temp = $record;
    $stream.print ($temp);
    
    $stream.print (Buf $record);

    $stream.write ($record);  # just what I need
    
    my int16 $x = 42;
    $stream.write ($x);  # emits 2 bytes, exactly as stored in the pri
+mitive
    $stream.print ($x);  # emits characters "4" and "2" in the proper 
+encoding

    class VLI<2.0.1 cpan:DLUGOSZ> 
       does Compact
       {
...
           supports unique options for encoding variations
        }
       } # end class VLI

    class C does Compact is rw
       {
       has int32 $x;
...
    my C $c;  # for a Compact class, empty prototype is not undef but 
+default values
    $c.x= 5;  # OK
    $c.y.value = 1234567812345678;  # yuck

    class VLI<2.0.1 cpan:DLUGOSZ> 
       does Compact::helper
       {
...
        has int32 $x;
        has Int $y is VLI;
        }