The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Scanner - implements the base for all scanners

SYNOPSIS

    use Scanner::Scanner;

    $tokens = [ '[A-Za-z_][A-Za-z0-9_]*', $IDENT ];

    $scanner = new Scanner::FirstMatch($tokens, new
        Scanner::Stream::File "blah.txt");