/usr/share/perl5/Data/Stag/PodParser.pm is in libdata-stag-perl 0.11-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 | # $Id: PodParser.pm,v 1.10 2008/06/03 17:31:15 cmungall Exp $
#
# Copyright (C) 2002 Chris Mungall <cjm@fruitfly.org>
#
# See also - http://stag.sourceforge.net
#
# This module is free software.
# You may distribute this module under the same terms as perl itself
package Data::Stag::PodParser;
=head1 NAME
PodParser.pm - parses perl POD documentation into stag events
=head1 SYNOPSIS
=cut
=head1 DESCRIPTION
=head1 AUTHOR
=cut
use Exporter;
use Carp;
use FileHandle;
use strict;
use base qw(Data::Stag::BaseGenerator Exporter);
use vars qw($VERSION);
$VERSION="0.11";
sub trim {
my $w = shift;
$w = '' unless defined $w;
$w =~ s/^\s+//g;
$w =~ s/\s+$//g;
return $w;
}
sub parse_fh {
my $self = shift;
my $fh = shift;
my @stack = ();
my $txt;
my $in_pod = 0;
my $tt = 'text';
$self->start_event("pod");
my $buf;
my $section;
while(<$fh>) {
chomp;
if (/^=(\S+)\s*(.*)/) {
$tt = 'text';
my ($ev, $data) = ($1, $2);
$in_pod = $ev eq 'cut' ? 0 : 1;
$data =~ s/\s*$//;
$section = $data;
if ($buf) {
$self->event($tt=>trim($buf));
$buf = undef;
}
$self->pop_stack_to_depth(1);
# $self->event($ev, $data);
if ($data) {
$self->start_event('section');
$self->event(type=>$ev);
$self->event(name=>$data);
}
}
else {
if (/^\s\s\s*(.*)/) {
if ($tt eq 'text') {
$tt = 'code';
if ($buf) {
$self->event(text=>trim($buf));
$buf = undef;
}
}
}
if ($in_pod) {
$buf .= "$_\n";
}
}
}
if ($buf) {
$self->event($tt=>trim($buf));
}
$fh->close;
$self->pop_stack_to_depth(0);
return;
}
1;
|