/usr/share/doc/libpod-pom-perl/examples/podlint 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 74 | #!/usr/bin/perl -w
use Pod::POM;
use Getopt::Std;
use File::Basename;
my $program = basename($0);
my %opts;
getopts('fh', \%opts);
die usage() if $opts{ h };
my $file = shift || die usage();
my $parser;
{
no warnings 'once';
$parser = Pod::POM->new( warn => 1, code => 1 )
|| die "$Pod::POM::ERROR\n";
}
my $pom = $parser->parse_file($file)
|| die $parser->error(), "\n";
print $pom if $opts{ f };
sub usage {
return <<EOF;
usage: $program [-f] file
Checks Pod file for well-formedness, printing warnings to STDERR.
The -f option can be set to fix problems (where possible), printing
the modified output to STDOUT.
EOF
}
=head1 NAME
podlint - check POD for correctness using Pod::POM
=head1 SYNOPSIS
podlint MyFile.pm
=head1 DESCRIPTION
This script uses Pod::POM to parse a Pod document with full
warnings enabled, effectively acting as a syntax and structure
checker.
The -f option can be specified to have the parsed Pod Object Model
printed to STDOUT with any markup errors fixed. Note there are some
critical parse errors that can't be handled and fixed by the parser
and in this case the script will terminate reporting the error.
=head1 AUTHOR
Andy Wardley E<lt>abw@kfs.orgE<gt>
=head1 VERSION
This is version 0.2 of podlint.
=head1 COPYRIGHT
Copyright (C) 2000, 2001 Andy Wardley. 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>.
|