bin/conf2conf.pl

   1 # This functions transforms a CPAN::Testers::ParseReport::parse_single_report ()
   2 # old nntp report into new hash structs
   3 #
   4 # my $hash = conf2conf (CPAN::Testers::ParseReport::parse_single_report ({
   5 #       id => $report }, $dumpvars, %Opt));
   6 #
   7 # For conversions, make sure that $dumpvars is true to get all data
   8 #
   9 # perl -Ilib bin/ctgetreports --cachedir=t/var --local --report=2044631 --dumpvars=.
  10 #
  11 sub conf2conf
  12 {
  13     my $rpt = shift;
  14     my %hsh;
  15     foreach my $p (qw( conf env meta mod prereq )) {
  16         %{$hsh{$p}} = map { $_ => delete $rpt->{"$p:$_"} }
  17             grep s/^$p:// => keys %$rpt;
  18         }
  19     $rpt->{PerlMyConfig} = {
  20         build  => {
  21             osname  => $hsh{conf}{osname},
  22             stamp   => 0,
  23             opions  => {},
  24             patches => [],
  25             },
  26         config => $hsh{conf},
  27         inc    => [],
  28         };
  29     $rpt->{TestEnvironment}  = $hsh{env};
  30     $rpt->{TestSummary}      = $hsh{meta};
  31     $rpt->{Prereqs}          = $hsh{prereq},
  32     $rpt->{InstalledModules} = $hsh{mod};
  33     $rpt;
  34     } # conf2conf