# Copyright (C) 2006-2009, Parrot Foundation. # $Id$ .sub 'main' :main $P0 = new ['FixedIntegerArray'] $P0 = 5 $P0[0] = 1 $P0[1] = 2 $P0[2] = 3 $P0[3] = 4 $P0[4] = 5 $P1 = new ['PASMSerializer'] setref $P1, $P0 $S0 = $P1 say "FIA Serialization:" say $S0 say "" $P0 = new ['ResizablePMCArray'] $P0[0] = $P0 $P1 = box 42 $P2 = new ['Hash'] $P2['Hello World'] = $P1 $P2['Circular Ref'] = $P0 $P0[1] = $P1 $P0[2] = $P2 $P1 = new ['PASMSerializer'] setref $P1, $P0 $S0 = $P1 say "RPA Serialization:" say $S0 say "" .end # Local Variables: # mode: pir # fill-column: 100 # End: # vim: expandtab shiftwidth=4 ft=pir: