Marc Lehmann > Gtk-Perl-0.7009 > $refname

Download:
Gtk-Perl-0.7009.tar.gz

Annotate this POD

CPAN RT

New  1
Open  1
View/Report Bugs
Source   Latest Release: Gtk-Perl-0.7010

NAME ^

$refname - Reference documentation for the $::opt_t module

EOF

my $parser = new XML::Parser(Style=>'Stream', Pkg=>'main'); $parser->parsefile($file);

close(OUT);

sub StartTag { my ($p, $t) = @_; $lasttag = $t; for ($t) { /^package$/ && do { print "\n=head1 $_{name}\n\n"; next; }; /^desc$/ && do { print "=back\n\n" unless $doneback; $doneback = 1; }; /^method$/ && do { $inmethods = {%_}; }; /^arg$/ && do { if (defined $inmethods) { print "\n=head2 $inmethods->{out} $_{name}","->","$inmethods->{name} ($inmethods->{args})\n\n"; print "=over 4\n\n"; $doneback = 0; undef $inmethods; } else { print "=item * $_{name} ($_{type}) $_{desc}\n\n"; } }; } }

sub EndTag { my ($p, $t) = @_; for ($t) { /^package$/ && do { }; /^method$/ && do { print "=back\n\n" unless $doneback; undef $inmethods; }; } }

sub Text { if ($lasttag eq 'desc') { print; print "\n\n"; } }

syntax highlighting: