CPAN::Testers::Fact::LegacyReport - an email-style report for CPAN Testers

  # assume $tr is an (upgraded) Test::Reporter object
  # that has the accessors below (it doesn't yet)

  my $fact = CPAN::Testers::Fact::LegacyReport->new({
    resource => 'cpan:///distfile/RJBS/CPAN-Metabase-Fact-0.001.tar.gz',
    content     => {
      grade         => $tr->grade,
      osname        => $tr->osname,
      osversion     => $tr->osversion
      archname      => $tr->archname
      perl_version  => $tr->perl_version_number
      textreport    => $tr->report
    },
  });

  David Golden <dagolden@cpan.org>

  The Apache License, Version 2.0, January 2004

# 
# This file is part of CPAN-Testers-Report
# 
# This software is Copyright (c) 2010 by David Golden.
# 
# This is free software, licensed under:
# 
#   The Apache License, Version 2.0, January 2004
# 
use 5.006;
use strict;
use warnings;
package CPAN::Testers::Fact::LegacyReport;
BEGIN {
  $CPAN::Testers::Fact::LegacyReport::VERSION = '1.999001';
}
# ABSTRACT: an email-style report for CPAN Testers

use Carp ();

use Metabase::Fact::Hash 0.016;
our @ISA = qw/Metabase::Fact::Hash/;

sub required_keys { qw/grade osname osversion archname perl_version textreport/ }

sub content_metadata {
  my ($self) = @_;
  my $content = $self->content;
  return {
    grade       => $content->{grade},
    osname      => $content->{osname},
    osversion   => $content->{osversion},
    archname    => $content->{archname},
    perl_version => $content->{perl_version},
  };
}
  
sub content_metadata_types {
  return {
    grade       => '//str',
    osname      => '//str',
    osversion   => '//str',
    archname    => '//str',
    perl_version => '//str',
  };
}
  
1;

__END__