File Coverage

blib/lib/Data/Zipper/Hash.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	1	1	100.0
total	28	28	100.0

package Data::Zipper::Hash;
BEGIN {
  $Data::Zipper::Hash::VERSION = '0.02';
}
# ABSTRACT: A zipper for hash references

use warnings FATAL => 'all';
use Moose;
use namespace::autoclean;

use MooseX::Types::Moose qw( Str HashRef );
use MooseX::Types::Structured qw( Tuple );

with 'Data::Zipper::API' => { type => Tuple[ Str, HashRef ] };

sub traverse {
    my ($self, $path) = @_;
    return (
        $self->focus->{$path},
        [ $path, $self->focus ],
    );
}

sub reconstruct {
    my ($self, $value, $path) = @_;
    my ($key, $object) = @$path;
    return {
        %{ $object },
        $key => $value
    };
}

__PACKAGE__->meta->make_immutable;
1;


__END__
=pod

=encoding utf-8

=head1 NAME

Data::Zipper::Hash - A zipper for hash references

=head1 METHODS

=head2 traverse

Traverse into the currently focused hash reference by moving into
the value of L<$key>.

=head2 reconstruct

(internal)

=head1 AUTHOR

Oliver Charles

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Oliver Charles <[e-mail]>.

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