view release on metacpan or  search on metacpan

bin/bc  view on Meta::CPAN

my $yyerrflag;
my $yylval;
my $yyn;
my $yym;
my $yyssp;
my $yystate;
my $yyval;
my $yyvsp;

my $debug = 0;
sub debug(&) {
  my $fn = shift;
  print STDERR "\t".&$fn()
    if $debug;
}

my $INT=257;
my $FLOAT=258;
my $STRING=259;
my $IDENT=260;
my $C_COMMENT=261;