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

##</code><code>##

print Dumper $foo;

##</code><code>##

print $foo->dump;