#!/usr/bin/perl
use 5.008;
use strict;
use warnings;

our $VERSION = '1.25';

use Pod::Spell;

if ($] ge '5.008001') {
  # Try to get the encoding from the locale
  my $encoding = eval {
    require POSIX;
    POSIX::setlocale(POSIX::LC_CTYPE(), '');
    require I18N::Langinfo;
    I18N::Langinfo::langinfo(I18N::Langinfo::CODESET())
  };

  if ($encoding) {
    binmode(STDOUT, ":encoding($encoding)");
  }
}

if(@ARGV) {  # iterate over files, sending to STDOUT
  foreach my $x (@ARGV) {
    Pod::Spell->new->parse_from_file($x, '-');
  }
} else {     # take from STDIN, send to STDOUT
  Pod::Spell->new->parse_from_filehandle();
}

__END__

=pod

=encoding UTF-8

=for :stopwords Sean M. Burke Caleb Cushing Olivier Mengué

=head1 NAME

podspell - pod spell checking command line interface

=head1 VERSION

version 1.25

=head1 SYNOPSIS

    % podspell Thing.pm | ispell

=head1 BUGS

Please report any bugs or feature requests on the bugtracker website
L<https://rt.cpan.org/Public/Dist/Display.html?Name=Pod-Spell> or by email
to L<bug-Pod-Spell@rt.cpan.org|mailto:bug-Pod-Spell@rt.cpan.org>.

When submitting a bug or request, please include a test-file or a
patch to an existing test-file that illustrates the bug or desired
feature.

=head1 AUTHORS

=over 4

=item *

Sean M. Burke <sburke@cpan.org>

=item *

Caleb Cushing <xenoterracide@gmail.com>

=back

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2022 by Olivier Mengué.

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut