Select Code to Download

my $foo = Foo->new;
my $meta_instance = Foo->meta->get_meta_instance;
print join "\n" => map { "$_ => " . $meta_instance->get_slot_value($fo
+o, $_) } $meta_instance->get_all_slots;

print Dumper $foo;

print $foo->dump;