Help for this page

Select Code to Download

Select or download this

$lexer->every (sub { 
          print $_[0]->name, "\t";
          print $_[0]->text, "\n"; 
        });