check-yaml: Add options --syck, --pp

perlancar · Oct 26, 2013 · 353772b · 353772b
1 parent 8a666d1
commit 353772b
Show file tree

Hide file tree

Showing 2 changed files with 34 additions and 3 deletions.
diff --git a/bin/check-json b/bin/check-json
@@ -6,6 +6,8 @@ use warnings;
 
 use Getopt::Long;
 
+# VERSION
+
 my $json_mod = '';
 GetOptions(
     'pp' => sub { $json_mod = 'PP' },
@@ -25,8 +27,6 @@ if ($json_mod eq 'PP') {
     require JSON;     $json = JSON    ->new->allow_nonref;
 }
 
-# VERSION
-
 eval {
     undef $/;
     $json->decode(~~<>);

diff --git a/bin/check-yaml b/bin/check-yaml
@@ -4,10 +4,26 @@ use 5.010;
 use strict;
 use warnings;
 
-use YAML::Syck;
+use Getopt::Long;
 
 # VERSION
 
+my $yaml_mod = 'XS';
+GetOptions(
+    'syck' => sub { $yaml_mod = 'Syck' },
+    'xs'   => sub { $yaml_mod = 'XS' },
+    'help' => sub {
+        print "Usage: $0 [--syck|--xs] <file>\n";
+        exit 0;
+    },
+);
+
+if ($yaml_mod eq 'Syck') {
+    require YAML::Syck; YAML::Syck->import;
+} elsif ($yaml_mod eq 'XS') {
+    require YAML::XS;   YAML::XS->import;
+}
+
 eval {
     undef $/;
     Load(~~<>);
@@ -23,4 +39,19 @@ die $@ if $@;
 
 Check YAML syntax. Prints nothing if YAML syntax is okay.
 
+
+=head1 COMMAND-LINE OPTIONS
+
+=over
+
+=item * --syck
+
+Use L<YAML::Syck>.
+
+=item * --xs
+
+Use L<YAML::XS> (the default).
+
+=back
+
 =cut