Dashboard
PHP:
8.1.33
OS:
Linux
User:
lawtemple
/
/
usr
/
bin
📤 Upload
📝 New File
📁 New Folder
Close
Editing: scan_mojibake
#!/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
Save
Cancel