The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

NPEREZ / Data-Morph-1.112760 / lib / Data / Morph / Backend / Raw.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
—
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121

              
package Data::Morph::Backend::Raw;
{
  $Data::Morph::Backend::Raw::VERSION = '1.112760';
}
#ABSTRACT: Provides a backend that produces simple HashRefs
use Moose;
use MooseX::Params::Validate;
use MooseX::Types::Moose(':all');
use Data::DPath(qw|dpath dpathr|);
use Devel::PartialDump('dump');
use namespace::autoclean;
has new_instance =>
(
    is => 'ro',
    isa => CodeRef,
    default => sub { sub { +{} } },
);
sub epilogue { }
with 'Data::Morph::Role::Backend' =>
{
    input_type => HashRef,
    get_val => sub
    {
        my ($obj, $key) = @_;
        my @refs = dpath($key)->match($obj);
        die "No matching points for key '$key' in: \n". dump($obj)
            unless scalar(@refs);
        die "Too many maching points for '$key' in: \n". dump($obj)
            if scalar(@refs) > 1;
        return $refs[0];
    },
    set_val => sub
    {
        my ($obj, $key, $val) = @_;
        my @refs = dpathr($key)->match($obj);
        die "Too many maching points for '$key' in: \n". dump($obj)
            if scalar(@refs) > 1;
        unless(scalar(@refs))
        {
            my @paths = split('/', $key);
            my $place = $obj;
            for(0..$#paths)
            {
                next if $paths[$_] eq '';
                if($_ == $#paths)
                {
                    $place->{$paths[$_]} = $val;
                }
                else
                {
                    $place = \%{$place->{$paths[$_]} = {}};
                }
            }
        }
        else
        {
            ${$refs[0]} = $val;
        }
    },
};
__PACKAGE__->meta->make_immutable();
1;
=pod
=head1 NAME
Data::Morph::Backend::Raw - Provides a backend that produces simple HashRefs
=head1 VERSION
version 1.112760
=head1 DESCRIPTION
Data::Morph::Backend::Raw is a backend for L<Data::Morph> that deals with raw Perl hashes. Map directives are more complicated than the other shipped backends like L<Data::Morph::Backend::Object>. The keys should be paths as defined by L<Data::DPath>. Read and write operations can have rather complex dpaths defined for them to set or return values. One special case is when the dpath for a write operation points to a non-existant piece: the substrate is created for you and the value deposited. One caveat is that the path must be dumb simple. It must only be a nested hash dpath (eg, '/some/path/here'). Any fancy filtering or array accesses would require too much effort to parse and generate the structure. Please see L<Data::Morph/SYNOPSIS> for an exmaple of a map using the Raw backend.
=head1 PUBLIC_ATTRIBUTES
=head2 new_instance
    is: ro, isa: CodeRef
This attribute overrides L<Data::Morph::Role::Backend/new_instance> and
provides a default coderef that simply returns empty hash references
=head1 PUBLIC_METHODS
=head2 epilogue
Implements L<Data::Morph::Role::Backend/epilogue> as a no-op
=head1 AUTHOR
Nicholas R. Perez <nperez@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Nicholas R. Perez <nperez@cpan.org>.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
__END__