| 1055 | | for (@{$n->{exp3} || []}) { |
| 1056 | | if (ref($_) eq 'ARRAY') { |
| 1057 | | $ret .= 'elsif '.emit_parenthesis( $_->[0] ) . |
| 1058 | | emit_block( $_->[1] ) . "\n"; |
| 1059 | | } |
| 1060 | | else { |
| 1061 | | $ret .= 'else '. emit_block( $_ ) . "\n"; |
| 1062 | | } |
| 1063 | | } |
| 1064 | | return $ret; |
| | 1056 | if ( $n->{elsif} ) { |
| | 1057 | my ($exps, $blocks) = @{$n->{elsif}}; |
| | 1058 | for (0 .. $#$exps) { |
| | 1059 | $ret .= 'elsif '.emit_parenthesis( ${$exps}[$_]->() ) . |
| | 1060 | emit_block( ${$blocks}[$_]->() ) . "\n"; |
| | 1061 | } |
| | 1062 | } |
| | 1063 | if ( $n->{else} ) { |
| | 1064 | $ret .= 'else '. emit_block( $n->{else} ) . "\n"; |
| | 1065 | } |
| | 1066 | return $ret; |
