#!/usr/bin/perl
use vars qw($VERSION);
$VERSION = "1.01";
=head1 NAME
ppi_dumper - Use the PPI to dump the structure of a Perl file
=head1 SYNOPSIS
$ ppi_dumper [-mPTWClr] [-i N] input_file
=head1 DESCRIPTION
Parse a Perl document with PPI and dump the Perl Document Object Model
(PDOM). This script is a command-line interface to PPI::Dumper.
=head1 OPTIONS
=over 4
=item -m
Show the memory address of each PDOM element.
=item -i N
Ident each level of output by N spaces. The default is 2.
=item -P
Do not show the full package name for each PPI class.
=item -T
Do not show the original source token that goes with each PPI object.
=item -W
Do not show whitespace tokens.
=item -C
Do not show comment tokens.
=item -l
Show the source code location of each PPI token.
=item -r
Parse the input in readonly mode. See PPI::Document::new() for the
details.
=back
=head1 SEE ALSO
Most behaviour, including environment variables and configuration,
comes directly from PPI::Dumper. I just made a command-line tool for it.
=head1 SOURCE AVAILABILITY
This code is in Github:
=head1 AUTHOR
brian d foy, C<< <bdfoy@cpan.org> >>
=head1 COPYRIGHT
Copyright (c) 2009-2013, brian d foy, All Rights Reserved.
You may redistribute this under the same terms as Perl itself.
=cut
App::PPI::Dumper->run(@ARGV);
__END__