Making Programs Faster

`parse_text`

Then I ran the tests
They almost all passed

     basic...........ok 2/11Can't call method "raw_text" 
        on unblessed reference at ../Pod/InputObjects.pm line 618,
        <GEN0> line 129.
     basic...........dubious
             Test returned status 255 (wstat 65280, 0xff00)
     DIED. FAILED tests 3-11
             Failed 9/11 tests, 18.18% okay

Not bad considering I don't know what I am doing
I will spare you the details of the next 90 minutes of debugging
The answer: I missed copying one of the lines from the other blocks!

     if ( /^([A-Z])<([^<>]*)>$/ ) {
         $seq = Pod::InteriorSequence->new(
                    -name   => $1,
                    -ldelim => "<",  -rdelim => ">",
                    -file   => $file,    -line   => $line
                );
         $seq->append($2);
         $seq->nested($seq_stack[-1]) if @seq_stack > 1;
         $seq_stack[-1]->append($expand_seq
                                ? &$xseq_sub($self, $seq)
                                : $seq);
     }

Whoops!