Select Code to Download

#!/usr/bin/env perl
use strict;
...
User_Alias FOO = abc, def
END_INPUT
}

* String before error: f : BAR = lmnd, adfs : BAZ = fda, reqw\nUser_Al
+ias
* The error was at line 2, column 11, and at character 0x0020 (non-gra
+phic character), ...
* here:  ZAB = gfd, aed\n
Marpa::R2 exception at test1.pl line 13.

sub test_input {
    return <<'END_INPUT';
...
User_Alias ZAB = gfd, aed
END_INPUT
}

my $data = <<'END';
If ((Myvalue.xyz == 1) Or (Frmae_1.signal_1 == 1)) Then a = 1
...
If ((Myvalue.xyz == 1) Or (Frmae_1.signal_1 == 1)) Then a = 1
Else a = 0;
END

bless([
  [
...
    ], "Ast::Cond"),
  ],
], "Ast::Block")