#!/usr/bin/perl
# ABSTRACT: scan Perl source and report bad character encoding
# PODNAME: scan_mojibake


use strict;
use warnings qw(all);

our $VERSION = '1.3'; # VERSION

use Pod::Usage;
use Test::Mojibake;

pod2usage(
    -exitval    => 0,
    -verbose    => 99,
) unless @ARGV;

all_files_encoding_ok(@ARGV);

__END__

=pod

=encoding UTF-8

=head1 NAME

scan_mojibake - scan Perl source and report bad character encoding

=head1 VERSION

version 1.3

=head1 SYNOPSIS

 scan_mojibake [FILES|DIRS]

=head1 DESCRIPTION

Standalone CLI wrapper for the L<Test::Mojibake> module.

Does exactly the same as:

 perl -MTest::Mojibake -e 'all_files_encoding_ok(@ARGV)' bin/ lib/ t/*.t

=head1 EXAMPLE

 $ scan_mojibake bin/ lib/ t/*.t
 1..14
 ok 1 - Mojibake test for bin/scan_mojibake
 ok 2 - Mojibake test for lib/Test/Mojibake.pm
 ok 3 - Mojibake test for t/00-load.t
 ok 4 - Mojibake test for t/01-bad-check.t
 ok 5 - Mojibake test for t/01-self-check.t
 ok 6 - Mojibake test for t/01-test-check.t
 ok 7 - Mojibake test for t/02-bad-source.t
 ok 8 - Mojibake test for t/02-good-source.t
 ok 9 - Mojibake test for t/03-bad-pod.t
 ok 10 - Mojibake test for t/03-good-pod.t
 ok 11 - Mojibake test for t/04-bom.t
 ok 12 - Mojibake test for t/05-encode.t
 ok 13 - Mojibake test for t/06-pp-vs-xs.t
 ok 14 - Mojibake test for t/07-broken-utf8.t

=head1 SEE ALSO

=over 4

=item *

L<Test::Mojibake>

=back

=head1 AUTHOR

Stanislaw Pusep <stas@sysd.org>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2017 by Stanislaw Pusep.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut