JezK

Edit File: 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

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>.