Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

added missing prerequisite, Metabase::Resource

  • Loading branch information...
commit 2bae0e482643983ef6bf45779156e11af76d6fc5 1 parent 2d8b6c2
@barbie authored
View
1  Changes
@@ -2,6 +2,7 @@ Revision history for CPAN-Testers-Data-Generator
================================================
- added Data::FlexSerializer functionality to compress reports.
+ - added missing prerequisite, Metabase::Resource.
1.10 2013-05-12
- fixed skip test count.
View
1  META.json
@@ -47,6 +47,7 @@
"JSON": "0",
"Metabase": "0.014",
"Metabase::Fact": "0",
+ "Metabase::Resource": "0",
"Time::Local": "0"
}
},
View
1  META.yml
@@ -34,6 +34,7 @@ requires:
JSON: 0
Metabase: 0.014
Metabase::Fact: 0
+ Metabase::Resource: 0
Time::Local: 0
recommends:
Test::CPAN::Meta: 0
View
1  Makefile.PL
@@ -34,6 +34,7 @@ WriteMakefile(
'JSON' => 0,
'Metabase' => 0.014,
'Metabase::Fact' => 0,
+ 'Metabase::Resource' => 0,
'Time::Local' => 0,
'DBI' => 0,
View
7 lib/CPAN/Testers/Data/Generator.pm
@@ -26,6 +26,7 @@ use Time::Local;
use Metabase 0.004;
use Metabase::Fact;
+use Metabase::Resource;
use CPAN::Testers::Fact::LegacyReport;
use CPAN::Testers::Fact::TestSummary;
use CPAN::Testers::Metabase::AWS;
@@ -515,7 +516,7 @@ sub get_next_guids {
my ($self,$start) = @_;
my ($guids);
- $self->_log("PRE time=[$self->{time}], last=[$self->{last}], start=[".($start||'')."]\n");
+ $self->_log("PRE time=[".($self->{time}||'')."], last=[".($self->{last}||'')."], start=[".($start||'')."]\n");
if($start) {
$self->{time} = $start;
@@ -545,7 +546,7 @@ sub get_next_guids {
}
}
- $self->_log("START time=[$self->{time}], last=[$self->{last}]\n");
+ $self->_log("START time=[$self->{time}], last=[".($self->{last}||'')."]\n");
$self->{last} = $self->{time};
eval {
@@ -645,7 +646,7 @@ sub parse_report {
my @facts = $report->facts();
for my $fact (@facts) {
if(ref $fact eq 'CPAN::Testers::Fact::TestSummary') {
- $self->{report}{metabase}{'CPAN::Testers::Fact::TestSummary'} = $fact->as_struct ;
+ $self->{report}{metabase}{'CPAN::Testers::Fact::TestSummary'} = $fact->as_struct;
$self->{report}{state} = lc $fact->{content}{grade};
$self->{report}{platform} = $fact->{content}{archname};
Please sign in to comment.
Something went wrong with that request. Please try again.