bin/ctsolvereports

   1 #!/usr/bin/perl -- -*- mode: cperl -*-
   2
   3 =head1 NAME
   4
   5 ctsolvereports - Analyse reports from a YAML file
   6
   7 =head1 SYNOPSIS
   8
   9   ctsolvereports [options] yamlfile
  10
  11 =head1 OPTIONS
  12
  13 =over 8
  14
  15 =cut
  16
  17 my $optpod = <<'=back';
  18
  19 =item B<--help|h>
  20
  21 Prints a brief message and exists.
  22
  23 =back
  24
  25 use strict;
  26 use warnings;
  27
  28 use CPAN::Testers::ParseReport;
  29 use Getopt::Long;
  30 use Pod::Usage qw(pod2usage);
  31 use YAML::Syck;
  32
  33 our %Opt;
  34 my @opt = $optpod =~ /B<--(\S+)>/g;
  35 for (@opt) {
  36     $_ .= "!" unless /[+!=]/;
  37 }
  38
  39 GetOptions(\%Opt,
  40            @opt,
  41           ) or pod2usage(2);
  42
  43 if ($Opt{help}) {
  44     pod2usage(0);
  45 }
  46
  47 if (1 != @ARGV) {
  48     pod2usage(2);
  49 }
  50
  51 my $data = YAML::Syck::LoadFile($ARGV[0]);
  52 CPAN::Testers::ParseReport::solve($data);
  53
  54
  55 __END__