Dashboard
PHP:
8.3.33
OS:
Linux
User:
proje374
/
/
usr
/
bin
đ€ Upload
đ New File
đ New Folder
Close
Editing: pomdump
#!/usr/bin/perl -w use strict; use FindBin qw($Bin); use lib "$Bin/../lib"; use Pod::POM; use Getopt::Std; use File::Basename; my $program = basename($0); my %opts; getopts('h', \%opts); die usage() if $opts{ h }; my $file = shift || die usage(); my $parser; { no warnings 'once'; $parser = Pod::POM->new( code => 1 ) || die "$Pod::POM::ERROR\n"; } my $pom = $parser->parse_file($file) || die $parser->error(), "\n"; print $pom->dump; sub usage { return <<EOF; usage: $program file Parses a Pod file and dumps the parse tree. EOF } =head1 NAME pomdump - dump the POM parse tree for a POD document =head1 SYNOPSIS pomdump MyFile.pm =head1 DESCRIPTION This script uses Pod::POM to parse a Pod document and then invokes the dump method on the top level node, resulting in a visualization of the structure of the POD document (the parse tree). =head1 AUTHOR Andrew Ford E<lt>A.Ford@ford-mason.co.ukE<gt> =head1 VERSION This is version 0.1 of pomdump. =head1 COPYRIGHT Copyright (C) 2009 Andrew Ford. All Rights Reserved. This module is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =head1 SEE ALSO For further information please see L<Pod::POM>.
Save
Cancel