This file is indexed.

/usr/bin/pomdump is in libpod-pom-perl 2.01-1.

This file is owned by root:root, with mode 0o755.

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
#!/usr/bin/perl -w

eval 'exec /usr/bin/perl -w -S $0 ${1+"$@"}'
    if 0; # not running under some shell

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