IF Metacommand in Embperl

[- $a = 1; $b = 0; $c = 5; $d = 'txt' -] a1 [* if ($a) { *] a
[* } *] a2 [* if ( $a) { *] a
[* } else { *] not a
[* } *] a3 [* if ( $a
) { *] a
[* } else {
*] not a
[* }
*] a4 [*
if ($a) { *] a
[*
} else {
*] not a
[*
} *] a5 [* if ($a) {*] a
[* if ( $b == 0) {*] b is null
[* } else { *] b is not null
[* } *] [* } else{*] not a
[* } *] [* if ($a) {*] a
[* if ( $b == 0) {*] b is null
[* } else { *] b is not null
[* } *] [* } else {*] not a
[* if ( $b == 0) {*] b is null
[* } else { *] b is not null
[* } *] [* } *] [* if (!$a) {*] not a
[* if ( $b == 0) {*] b is null
[* } else { *] b is not null
[* } *] [* } else {*] a
[* if ( $b == 0) {*] b is null
[* } else { *] b is not null
[* } *] [* } *] [* if ($a) {*] a
[* if ( $b == 0) {*] b is null
[* } elsif ($c == 5) { *] b is not null and c is 5
[* } elsif ($d eq 'txt') {*] b is not null and c is not 5, but d is 'txt'
[* } else { *] b is not null and c is not 5 and d is not 'txt'
[* } *] [* } else {*] not a
[* } *] [- $ttrue = 'true'; $tfalse = '' -] [* if ( $ttrue) { *] ttrue = true [* } else { *] ttrue = false [* } *] [* if ( $tfalse) { *] tfalse = true [* } else { *] tfalse = false [* } *]