gistfile1.txt

ingy@thinkingy:~$ perl -MXXX -MPegex -e '$Pegex::Parser::Debug=1;XXX pegex("src/testml-pgx/testml.pgx")->parse("A = 1;\n&^%B = 2;\n")'
try_testml_document            >A = 1;\n&^%B = 2;\n<
 try_code_section               >A = 1;\n&^%B = 2;\n<
  try_assignment_statement       >A = 1;\n&^%B = 2;\n<
   try_variable_name              >A = 1;\n&^%B = 2;\n<
   got_variable_name             
   try_code_expression            >1;\n&^%B = 2;\n<
    try_code_object                >1;\n&^%B = 2;\n<
     try_function_object            >1;\n&^%B = 2;\n<
      try_function_signature         >1;\n&^%B = 2;\n<
      not_function_signature        
      try_function_start             >1;\n&^%B = 2;\n<
      not_function_start            
     not_function_object           
     try_point_object               >1;\n&^%B = 2;\n<
     not_point_object              
     try_string_object              >1;\n&^%B = 2;\n<
      try_quoted_string              >1;\n&^%B = 2;\n<
       try_single_quoted_string       >1;\n&^%B = 2;\n<
       not_single_quoted_string      
       try_double_quoted_string       >1;\n&^%B = 2;\n<
       not_double_quoted_string      
      not_quoted_string             
     not_string_object             
     try_number_object              >1;\n&^%B = 2;\n<
      try_number                     >1;\n&^%B = 2;\n<
      got_number                    
     got_number_object             
    got_code_object               
    try_unit_call                  >;\n&^%B = 2;\n<
     try_assertion_call_test        >;\n&^%B = 2;\n<
     not_assertion_call_test       
     try_call_indicator             >;\n&^%B = 2;\n<
     not_call_indicator            
    not_unit_call                 
   got_code_expression           
   try_semicolon                  >;\n&^%B = 2;\n<
   got_semicolon                 
  got_assignment_statement      
  try_assignment_statement       >&^%B = 2;\n<
   try_variable_name              >&^%B = 2;\n<
   not_variable_name             
  not_assignment_statement      
  try_code_statement             >&^%B = 2;\n<
   try_code_expression            >&^%B = 2;\n<
    try_code_object                >&^%B = 2;\n<
     try_function_object            >&^%B = 2;\n<
      try_function_signature         >&^%B = 2;\n<
      not_function_signature        
      try_function_start             >&^%B = 2;\n<
      not_function_start            
     not_function_object           
     try_point_object               >&^%B = 2;\n<
     not_point_object              
     try_string_object              >&^%B = 2;\n<
      try_quoted_string              >&^%B = 2;\n<
       try_single_quoted_string       >&^%B = 2;\n<
       not_single_quoted_string      
       try_double_quoted_string       >&^%B = 2;\n<
       not_double_quoted_string      
      not_quoted_string             
     not_string_object             
     try_number_object              >&^%B = 2;\n<
      try_number                     >&^%B = 2;\n<
      not_number                    
     not_number_object             
     try_transform_object           >&^%B = 2;\n<
      try_transform_name             >&^%B = 2;\n<
       try_user_transform             >&^%B = 2;\n<
       not_user_transform            
       try_core_transform             >&^%B = 2;\n<
       not_core_transform            
      not_transform_name            
     not_transform_object          
    not_code_object               
   not_code_expression           
  not_code_statement            
 got_code_section              
 try_data_section               >&^%B = 2;\n<
  try_data_block                 >&^%B = 2;\n<
   try_block_header               >&^%B = 2;\n<
    try_block_marker               >&^%B = 2;\n<
    not_block_marker              
   not_block_header              
  not_data_block                
 got_data_section              
got_testml_document           
Error parsing Pegex document:
  msg: Parse document failed for some reason
  line: 2
  context: "&^%B = 2;\n"
  position: 7
 at /usr/local/share/perl/5.10.1/Pegex/Grammar.pm line 47