deflating Moose class to something suitable for using in MongoDB

gistfile1.pl

use Data::Dumper;

sub deflate {
    my $self = shift;
    my $doc  = {};

    foreach my $attribute ($self->meta->get_all_attributes) {
        # here be dragons, type checks, trait checks, and more
        $doc->{$attribute->name} = $attribute->get_value($self);
    }

    return 
        Data::Dumper->new([$doc])
            ->Indent(0)
            ->Purity(1)
            ->Useqq(1)
            ->Terse(1)
            ->Deepcopy(1)
            ->Dump;
}