A Data::Visitor for creating Moose objects from blessed placeholders
Branch: master
Clone or download
Pull request Compare This branch is 18 commits ahead of nothingmuch:master.
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Type Name Latest commit message Commit time
Failed to load latest commit information.
lib/MooseX/Blessed
t
.gitignore
.mailmap
.travis.yml
Changes
MANIFEST
MANIFEST.SKIP
README.mkdn
cpanfile
dist.ini

README.mkdn

NAME

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

VERSION

version 1.01

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);

    # but recursive (and works with shared references)

DESCRIPTION

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

METHODS

See Data::Visitor

new

Constructor.

arguments

  • load_classes

    If true (which is the default), we will try to require its class when the target object is visited.

load_classes

Read/write accessor to the load_classes attribute. If true, we try to require its class when a target object is visited.

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.

prepare_args $obj

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

AUTHORS

COPYRIGHT AND LICENSE

This software is copyright (c) 2018, 2014 by Infinity Interactive, Yuval Kogman.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.