NAME

First - implements a simple "first match" tokenizer

SYNOPSIS

use Scanner::Stream::File;
use Scanner::Scanner;
use Scanner::First;
$tokens = [ '[A-Za-z_][A-Za-z0-9_]*', sub { print "$_[1] "; } ];
# Print all the identifiers in blah.txt
$scanner = new Scanner::First($tokens, new
    Scanner::Stream::File "blah.txt");