- $value = $form;
- for my $part (split(m/\./, $var)) {
- if (ref($value) =~ m/^(?:Form|HASH)$/) {
- $value = $value->{$part};
- } elsif (blessed($value) && $value->can($part)) {
- $value = $value->$part;
- } else {
- $value = '';
- last;
- }
- }
- } elsif (($get_array || @indices) && (ref $form->{TEMPLATE_ARRAYS} eq 'HASH') && (ref $form->{TEMPLATE_ARRAYS}->{$var} eq 'ARRAY')) {
+ ($var, @methods) = split m/\./, $var;
+ }
+
+ if (($get_array || @indices) && (ref $form->{TEMPLATE_ARRAYS} eq 'HASH') && (ref $form->{TEMPLATE_ARRAYS}->{$var} eq 'ARRAY')) {