use MooseX::Blessed::Reconstruct;

        my $obj = bless( {
                init_arg_foo => "Blah",
                arf => "yay",
        }, "Foo" );

        my $proper = MooseX::Blessed::Reconstruct->new->visit($obj);

        # equivalent to:

        my $proper = Foo->meta->new_object(%$obj);

        # but recursive (and works with shared references)


The purpose of this module is to \*(L"fix up\*(R" blessed data into a real Moose object.

This is used internally by MooseX::YAML but has no implementation details having to do with \s-1YAML\s0 itself.


See Data::Visitor Calls \*(L"load_class\*(R" in Class::MOP on the \*(C`ref\*(C' of $object. If there's a metaclass, calls \*(C`visit_object_with_meta\*(C', otherwise \*(C`visit_ref\*(C' is used to walk the object brutishly. Returns a deep clone of the input structure with all the Moose objects reconstructed \*(L"properly\*(R". Uses the metaclass $meta to create a new instance, registers the instance with Data::Visitor's cycle tracking, and then inflates it using \*(L"new_object\*(R" in Moose::Meta::Class. Collapses $obj into key value pairs to be used as init args to \*(L"new_object\*(R" in Moose::Meta::Class.


This module is maintained using Darcs. You can get the latest version from <>, and use \*(C`darcs send\*(C' to commit changes.


Jonathan Rockway

Yuval Kogman <[email protected]>


Copyright (c) 2008 Infinity Interactive, Yuval Kogman. All rights reserved This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.