Next Making Programs Faster 70

parse_text

     ## Look for an entire simple sequence 20030420 mjd@plover.com
     if ( /^([A-Z])<([^<>]*)>$/ ) {
         $seq = Pod::InteriorSequence->new(
                    -name   => $1,
                    -ldelim => "<",  -rdelim => ">",
                    -file   => $file,    -line   => $line
                );
         $seq->append($2);
         $seq_stack[-1]->append($expand_seq 
                                ? &$xseq_sub($self, $seq) 
                                : $seq);
     }
     ... the rest as before ...

Next Copyright © 2003 M. J. Dominus