Bug #20608 for Perl-Tags: Finding subroutine declarations in POD.

Fri Jul 21 10:58:50 2006 DMITRI [...] cpan.org - Ticket created

Subject:

Finding subroutine declarations in POD.

0.23 find subrouting declarations in POD and tags them. My POD looks like this: __END__ ... # part of code example: sub localized (&$); ... =cut Should probably ignore POD.

Fri Jul 21 12:27:14 2006 DMITRI [...] cpan.org - Correspondence added

Attached is the patch to skip POD when parsing files. - Dmitri.

--- Tags.pm.orig 2006-07-21 11:55:09.000000000 -0400 +++ Tags.pm 2006-07-21 12:24:34.000000000 -0400 @@ -79,6 +79,19 @@ use overload q("") => \&to_string; our $VERSION = 0.23; +{ + # Tags that start POD: + my @start_tags = qw(pod head1 head2 head3 head4 over item back begin + end for encoding); + my @end_tags = qw(cut); + + my $startpod = '^=(?:' . join('|', @start_tags) . ')\b'; + my $endpod = '^=(?:' . join('|', @end_tags) . ')\b'; + + sub STARTPOD { qr/$startpod/ } + sub ENDPOD { qr/$endpod/ } +} + =head2 C<new> L<Perl::Tags> is an abstract baseclass. L<Perl::Tags::Naive> is provided @@ -281,8 +294,11 @@ # default line by line parsing. Or override it + my $start = STARTPOD; + my $end = ENDPOD; while (<$IN>) { + next if (/$start/o .. /$end/o); # Skip over POD. chomp; my $statement = my $line = $_; PARSELOOP: for my $parser (@parsers) {

Fri Jul 21 12:27:19 2006 DMITRI [...] cpan.org - Status changed from 'new' to 'open'

Thu Nov 12 07:53:49 2009 smueller [...] cpan.org - Correspondence added

Patch applied at http://github.com/tsee/perl-tags

Fri Nov 13 16:32:15 2009 osfameron [...] cpan.org - Correspondence added

Should be fixed in 0.27

Fri Nov 13 16:32:17 2009 osfameron [...] cpan.org - Status changed from 'open' to 'resolved'