our
$VERSION
=
'0.18'
;
sub
name {
'KEEP'
}
sub
precedence_level { 6 }
sub
default_prefix {
'^'
}
sub
default_prefix_re {
qr/^\^/
}
sub
merge_SCALAR_SCALAR {
my
(
$self
,
$key
,
$l
,
$r
) =
@_
;
(
$key
,
$l
);
}
sub
merge_SCALAR_ARRAY {
my
(
$self
,
$key
,
$l
,
$r
) =
@_
;
(
$key
,
$l
);
}
sub
merge_SCALAR_HASH {
my
(
$self
,
$key
,
$l
,
$r
) =
@_
;
(
$key
,
$l
);
}
sub
merge_ARRAY_SCALAR {
my
(
$self
,
$key
,
$l
,
$r
) =
@_
;
(
$key
,
$l
);
}
override
merge_ARRAY_ARRAY
=>
sub
{
my
(
$self
,
$key
,
$l
,
$r
) =
@_
;
super(
$key
,
$l
,
$r
,
'KEEP'
);
};
sub
merge_ARRAY_HASH {
my
(
$self
,
$key
,
$l
,
$r
) =
@_
;
(
$key
,
$l
);
}
sub
merge_HASH_SCALAR {
my
(
$self
,
$key
,
$l
,
$r
) =
@_
;
(
$key
,
$l
);
}
sub
merge_HASH_ARRAY {
my
(
$self
,
$key
,
$l
,
$r
) =
@_
;
(
$key
,
$l
);
}
override
merge_HASH_HASH
=>
sub
{
my
(
$self
,
$key
,
$l
,
$r
) =
@_
;
super(
$l
,
$r
,
'KEEP'
);
};
__PACKAGE__->meta->make_immutable;
no
Moose;
1;