|
|
@ -99,10 +99,12 @@ sub get {
|
|
|
|
|
|
|
|
|
|
|
|
# check if last element is reached
|
|
|
|
# check if last element is reached
|
|
|
|
if ($rest) {
|
|
|
|
if ($rest) {
|
|
|
|
if (defined $value and (reftype $value eq 'HASH' or blessed $value)) {
|
|
|
|
if (defined $value) {
|
|
|
|
$value = $self->get($rest,$value);
|
|
|
|
if (reftype $value eq 'HASH' or blessed $value) {
|
|
|
|
} else {
|
|
|
|
$value = $self->get($rest,$value);
|
|
|
|
$self->{callbacks}->{retrieve_key_from_non_hash}->($data, $key, $index, $value, $rest);
|
|
|
|
} else {
|
|
|
|
|
|
|
|
$self->{callbacks}->{retrieve_key_from_non_hash}->($data, $key, $index, $value, $rest);
|
|
|
|
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|