in reply to RE: Object-Oriented Persistence and Message Passing with Cons
in thread Object-Oriented Persistence and Message Passing with Cons
Excellent question, it DOES handle both nested references and code refs. Updated and more complex example follows:
po = { 1, 'two', 'buckle my', [ 'Florsheim', 'Nike', 'Sandals', 'Thongs' ], 'shoo' }; $sub = sub { print "code ref passed to the edge of panic boyeeeee\n" } +; Export qw (po sub); Build qw (tmp/Conscript);
Import qw( po sub ) ; use Data::Dumper; warn Data::Dumper->Dump([$po],['po']); $sub->();
$po = { 'shoo' => undef, 1 => 'two', 'buckle my' => [ 'Florsheim', 'Nike', 'Sandals', 'Thongs' ] }; code ref passed to the edge of panic boyeeeee
|
|---|