Select Code to Download

#!/usr/bin/perl -w
use strict;
my %x;
...
4
4
4

1: case '@':
2:    if (PL_expect == XOPERATOR)
3:        no_op("Array", s);
...
31:   }
32:   PL_pending_ident = '@';
33:   TERM('@');

if (*s == '$' && s[1] &&
    (isALNUM_lazy_if(s+1,UTF) || strchr("${", s[1]) || strnEQ(s+1,"::"
+,2)) )
{
    return s;
}

    *d = '\0';
    d = dest;
    if (*d) {
...
            PL_lex_state = LEX_INTERPENDMAYBE;
        return s;
    }