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");