File Coverage

blib/lib/Hash/Merge/Simple.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	6	8	75.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	3	3	100.0
total	45	48	93.7

package Hash::Merge::Simple;
use strict;
use warnings;

our $VERSION = '0.052';

use Exporter ();
our @ISA = qw/ Exporter /;
our @EXPORT_OK = qw/ merge clone_merge dclone_merge /;

# This was stoled from Catalyst::Utils... thanks guys!
sub merge (@);
sub merge (@) {
    shift unless ref $_[0]; # Take care of the case we're called like Hash::Merge::Simple->merge(...)
    my ($left, @right) = @_;

    return $left unless @right;

    return merge($left, merge(@right)) if @right > 1;

    my ($right) = @right;

    my %merge = %$left;

    for my $key (keys %$right) {

        my ($hr, $hl) = map { ref $_->{$key} eq 'HASH' } $right, $left;

        if ($hr and $hl){
            $merge{$key} = merge($left->{$key}, $right->{$key});
        }
        else {
            $merge{$key} = $right->{$key};
        }
    }

    return \%merge;
}

sub clone_merge {
    require Clone;
    my $result = merge @_;
    return Clone::clone( $result );
}

sub dclone_merge {
    require Storable;
    my $result = merge @_;
    return Storable::dclone( $result );
}

1;

__END__