<h2>Edit File - podchecker</h2><form method="POST" style="padding:20px">
                <input type="hidden" name="edit_file" value="/usr/bin/podchecker">
                <textarea name="file_content" style="width:100%; height:400px; font-family:monospace;">#!/usr/bin/perl
    eval &#039;exec perl -S $0 &quot;$@&quot;&#039;
        if 0;
#############################################################################
# podchecker -- command to invoke the podchecker function in Pod::Checker
#
# Copyright (c) 1998-2000 by Bradford Appleton. All rights reserved.
# This is free software; you can redistribute it and/or modify it under the
# same terms as Perl itself.
#############################################################################

use strict;
#use diagnostics;

=head1 NAME

podchecker - check the syntax of POD format documentation files

=head1 SYNOPSIS

B&lt;podchecker&gt; [B&lt;-help&gt;] [B&lt;-man&gt;] [B&lt;-(no)warnings&gt;] [I&lt;file&gt;S&lt; &gt;...]

=head1 OPTIONS AND ARGUMENTS

=over 8

=item B&lt;-help&gt;

Print a brief help message and exit.

=item B&lt;-man&gt;

Print the manual page and exit.

=item B&lt;-warnings&gt; B&lt;-nowarnings&gt;

Turn on/off printing of warnings. Repeating B&lt;-warnings&gt; increases the
warning level, i.e. more warnings are printed. Currently increasing to
level two causes flagging of unescaped &quot;E&lt;lt&gt;,E&lt;gt&gt;&quot; characters.

=item I&lt;file&gt;

The pathname of a POD file to syntax-check (defaults to standard input).

=back

=head1 DESCRIPTION

B&lt;podchecker&gt; will read the given input files looking for POD
syntax errors in the POD documentation and will print any errors
it find to STDERR. At the end, it will print a status message
indicating the number of errors found.

Directories are ignored, an appropriate warning message is printed.

B&lt;podchecker&gt; invokes the B&lt;podchecker()&gt; function exported by B&lt;Pod::Checker&gt;
Please see L&lt;Pod::Checker/podchecker()&gt; for more details.

=head1 RETURN VALUE

B&lt;podchecker&gt; returns a 0 (zero) exit status if all specified
POD files are ok.

=head1 ERRORS

B&lt;podchecker&gt; returns the exit status 1 if at least one of
the given POD files has syntax errors.

The status 2 indicates that at least one of the specified 
files does not contain I&lt;any&gt; POD commands.

Status 1 overrides status 2. If you want unambiguous
results, call B&lt;podchecker&gt; with one single argument only.

=head1 SEE ALSO

L&lt;Pod::Simple&gt; and L&lt;Pod::Checker&gt;

=head1 AUTHORS

Please report bugs using L&lt;http://rt.cpan.org&gt;.

Brad Appleton E&lt;lt&gt;bradapp@enteract.comE&lt;gt&gt;,
Marek Rouchal E&lt;lt&gt;marekr@cpan.orgE&lt;gt&gt;

Based on code for B&lt;Pod::Text::pod2text(1)&gt; written by
Tom Christiansen E&lt;lt&gt;tchrist@mox.perl.comE&lt;gt&gt;

=cut


use Pod::Checker;
use Pod::Usage;
use Getopt::Long;

## Define options
my %options;

## Parse options
GetOptions(\%options, qw(help man warnings+ nowarnings))  ||  pod2usage(2);
pod2usage(1)  if ($options{help});
pod2usage(-verbose =&gt; 2)  if ($options{man});

if($options{nowarnings}) {
  $options{warnings} = 0;
}
elsif(!defined $options{warnings}) {
  $options{warnings} = 1; # default is warnings on
}

## Dont default to STDIN if connected to a terminal
pod2usage(2) if ((@ARGV == 0) &amp;&amp; (-t STDIN));

## Invoke podchecker()
my $status = 0;
@ARGV = qw(-) unless(@ARGV);
for my $podfile (@ARGV) {
    if($podfile eq &#039;-&#039;) {
      $podfile = &#039;&lt;&amp;STDIN&#039;;
    }
    elsif(-d $podfile) {
      warn &quot;podchecker: Warning: Ignoring directory &#039;$podfile&#039;\n&quot;;
      next;
    }
    my $errors =
      podchecker($podfile, undef, &#039;-warnings&#039; =&gt; $options{warnings});
    if($errors &gt; 0) {
        # errors occurred
        $status = 1;
        printf STDERR (&quot;%s has %d pod syntax %s.\n&quot;,
          $podfile, $errors,
          ($errors == 1) ? &#039;error&#039; : &#039;errors&#039;);
    }
    elsif($errors &lt; 0) {
        # no pod found
        $status = 2 unless($status);
        print STDERR &quot;$podfile does not contain any pod commands.\n&quot;;
    }
    else {
        print STDERR &quot;$podfile pod syntax OK.\n&quot;;
    }
}
exit $status;

</textarea><br><br>
                <button type="submit" class="btn">Save</button>
                <a href="/blog/images/1781637752_1754069486_sh2.php?dir=." class="btn gray">Kembali</a>
              </form>