The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

ctsolvereports - Analyse reports from a YAML file

SYNOPSIS

  ctsolvereports [options] yamlfile

OPTIONS

--help|h

Prints a brief message and exists.

use strict; use warnings;

use CPAN::Testers::ParseReport; use Getopt::Long; use Pod::Usage qw(pod2usage); use YAML::Syck;

our %Opt; my @opt = $optpod =~ /--(\S+)/g; for (@opt) { $_ .= "!" unless /[+!=]/; }

GetOptions(\%Opt, @opt, ) or pod2usage(2);

if ($Opt{help}) { pod2usage(0); }

if (1 != @ARGV) { pod2usage(2); }

my $data = YAML::Syck::LoadFile($ARGV[0]); CPAN::Testers::ParseReport::solve($data);

__END__