MooseX::Blessed::Reconstruct.3pm

Langue: en

Version: 2008-12-06 (debian - 07/07/09)

Section: 3 (Bibliothèques de fonctions)

NAME

MooseX::Blessed::Reconstruct - A Data::Visitor for creating Moose objects from blessed placeholders

SYNOPSIS

         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);
         $proper->BUILDALL({%$obj});
 
         # but recursive (and works with shared references)
 
 

DESCRIPTION

The purpose of this module is to ``fix up'' blessed data into a real Moose object.

This is used internally by MooseX::YAML but has no implementation details having to do with YAML itself.

METHODS

See Data::Visitor
visit_object $object
Calls ``load_class'' in Class::MOP on the "ref" of $object.

If there's a metaclass, calls "visit_object_with_meta", otherwise "visit_ref" is used to walk the object brutishly.

Returns a deep clone of the input structure with all the Moose objects reconstructed ``properly''.

visit_object_with_meta $obj, $meta
Uses the metaclass $meta to create a new instance, registers the instance with Data::Visitor's cycle tracking, and then inflates it using ``new_object'' in Moose::Meta::Class.

After the object is built, "BUILDALL" is called if the object implements it.

prepare_args $obj
Collapses $obj into key value pairs to be used as init args to ``new_object'' in Moose::Meta::Class.

VERSION CONTROL

This module is maintained using Darcs. You can get the latest version from <http://nothingmuch.woobling.org/code>, and use "darcs send" to commit changes.

AUTHOR

Jonathan Rockway

Yuval Kogman <nothingmuch@woobling.org>

         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.