bin/parse-all-meta.pl

   1 #!/usr/bin/perl
   2
   3 # use 5.010;
   4 use strict;
   5 use warnings;
   6
   7 =head1 NAME
   8
   9
  10
  11 =head1 SYNOPSIS
  12
  13
  14
  15 =head1 OPTIONS
  16
  17 =over 8
  18
  19 =cut
  20
  21 my @opt = <<'=back' =~ /B<--(\S+)>/g;
  22
  23 =item B<--cpan=s>
  24
  25 CPAN mirror root directory. Defaults to /home/ftp/pub/PAUSE
  26
  27 =item B<--help|h!>
  28
  29 This help
  30
  31 =item B<--parser=s>
  32
  33 defaults to Parse::CPAN::Meta. Also supported: YAML::Syck
  34
  35 =back
  36
  37 =head1 DESCRIPTION
  38
  39
  40
  41 =cut
  42
  43 use File::Basename qw(dirname);
  44 use File::Path qw(mkpath);
  45 use File::Spec;
  46 use File::Temp;
  47 use Getopt::Long;
  48 use Hash::Util qw(lock_keys);
  49
  50 our %Opt;
  51 lock_keys %Opt, map { /([^=]+)/ } @opt;
  52 GetOptions(\%Opt,
  53            @opt,
  54           ) or pod2usage(1);
  55
  56 $Opt{cpan} ||= "/home/ftp/pub/PAUSE";
  57 my $counter = 0;
  58 use File::Find;
  59 find
  60     ({
  61       wanted => sub {
  62           return unless /\.meta$/;
  63           my $ok;
  64           if ($Opt{parser} eq "Parse::CPAN::Meta") {
  65               require Parse::CPAN::Meta;
  66               unlink "/tmp/meta.yaml" or die $! if -e "/tmp/meta.yaml";
  67               symlink $File::Find::name, "/tmp/meta.yaml";
  68               $ok = eval { Parse::CPAN::Meta->load_file("/tmp/meta.yaml"); };
  69               unlink "/tmp/meta.yaml" or die $!;
  70           } elsif ($Opt{parser} eq "YAML::Syck") {
  71               require YAML::Syck;
  72               $ok = eval { YAML::Syck::LoadFile($File::Find::name); };
  73           } elsif ($Opt{parser} eq "YAML::XS") {
  74               require YAML::XS;
  75               $ok = eval { YAML::XS::LoadFile($File::Find::name); };
  76           }
  77           return if $ok;
  78           $counter++;
  79           warn "$Opt{parser} could not parse $counter\: $File::Find::name\:\n$@\n";
  80       },
  81       no_chdir => 1,
  82      },
  83      $Opt{cpan} . "/authors/id"
  84     );