IF Metacommand in Embperl

[- $a = 1; $b = 0; $c = 5; $d = 'txt' -] a1 [$if $a$] a
[$ endif$] a2 [$if $a $] a
[$else$] not a
[$ endif $] a3 [$if $a
$] a
[$else
$] not a
[$ endif
$] a4 [$
if $a $] a
[$
else
$] not a
[$
endif $] a5 [$ if $a$] a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ else$] not a
[$ endif $] [$ if $a$] a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ else$] not a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ endif $] [$ if !$a$] not a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ else$] a
[$if $b == 0$] b is null
[$else$] b is not null
[$endif$] [$ endif $] [$ 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'
[$endif$] [$ else$] not a
[$ endif $] [$ 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'
[$endif$] [$ else$] not 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'
[$endif$] [$ endif $] [$ if $a == 0 $] a is null
[$if $b != 0$] b not is null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] a is not null
[$if $b != 0$] b is not null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ endif $] [$ if $a == 0 $] a is null
[$if $b != 0$] b not is null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] a is not null
[$if $b != 0$] b is not null
[$elsif $c != 5 $] b is null and c is not 5
[$elsif $d ne 'txt'$] b is null and c is not 5, but d is not 'txt'
[$else$] b is null and c is 5 and d is 'txt'
[$endif$] [$ endif $] [$ if $a == 0 $] a is null
[$if $b != 0$] b not is null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] a is not null
[$if $b != 0$] b is not null
[$elsif $c != 5 $] b is null and c is not 5
[$elsif $d ne 'txt'$] b is null and c is not 5, but d is not 'txt'
[$else$] b is null and c is 5 and d is 'txt'
[$if $b != 0$] b is not null
[$elsif $c != 5 $] b is null and c is not 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$if $d eq 'txt'$] If we get to here it looks good with the tests
[$else$] No not go to here, something is wrong!
[$endif$] [$else$] b is null and c is 5 and d is 'txt'
[$endif$] [$endif$] [$ endif $] [$ if $a == 0 $] a is null
[$if $b != 0$] b not is null
[$elsif $c == 5 $] b is null and c is 5
[$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$else$] b is null and c is not 5 and d is not 'txt'
[$endif$] [$ else$] a is not null
[$if $b != 0$] b is not null
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$elsif $c != 5 $] b is null and c is not 5
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$elsif $d ne 'txt'$] b is null and c is not 5, but d is not 'txt'
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$else$] b is null and c is 5 and d is 'txt'
[$if $b != 0$] b is not null
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$elsif $c != 5 $] b is null and c is not 5
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$elsif $d eq 'txt'$] b is null and c is not 5, but d is 'txt'
[$if $d eq 'txt'$] If we get to here it looks good with the tests
[$else$] No not go to here, something is wrong!
[$endif$] [$else$] b is null and c is 5 and d is 'txt'
[$if $d eq 'txt'$] No not go to here, something is wrong! (a)
[$else$] No not go to here, something is wrong! (b)
[$endif$] [$endif$] [$endif$] [$ endif $] [- $ttrue = 'true'; $tfalse = '' -] [$if $ttrue $] ttrue = true [$else$] ttrue = false [$endif$] [$if $tfalse $] tfalse = true [$else$] tfalse = false [$endif$]