Pod::Simple::SimpleTree and =for

[Thomas Klausner]

Hi!

I just tried to parse some POD using Pod::Simple::SimpleTree (from
Pod::Simple 0.96) but it seems to not recognise =for directives

given this pod:

=pod

=head1 foo

=for comment check

foo

=cut

and this command (straight from the SYNOPSIS)
% perl -MPod::Simple::SimpleTree -MData::Dumper -e \
       "print Dumper(Pod::Simple::SimpleTree->new->parse_file(shift)->root)" \
       ptest.pod

I get this Parse Tree:
$VAR1 = [
         'Document',
         {
          'start_line' => 1
         },
         [
          'head1',
          {
           'start_line' => 3
          },
          'foo'
         ],
         [
          'Para',
          {
           'start_line' => 7
          },
          'foo'
          ]
        ];                                      


The =for comment check part is missing.

Is this still unimplemented in Pod::Simple?

I tried adding 'for' to @Known_directives but it couldn't be that simple...

So, should I use some other Pod parser (but I thought Pod::Simple was the
canonical)?

Or could somebody give me a hint where to start looking to implement =for
in Pod::Simple?

Or am I just missing something obvious?

-- 
#!/usr/bin/perl                               http://domm.zsi.at
for(ref bless{},just'another'perl'hacker){s-:+-$"-g&&print$_.$/}