mediawiki merging, row identification, tests

[scpubgit/System-Introspector-Report.git] / lib / System / Introspector / Report / Publish / MediaWiki.pm

diff --git a/lib/System/Introspector/Report/Publish/MediaWiki.pm b/lib/System/Introspector/Report/Publish/MediaWiki.pm
index 839a2e3..edbead7 100644 (file)
--- a/lib/System/Introspector/Report/Publish/MediaWiki.pm
+++ b/lib/System/Introspector/Report/Publish/MediaWiki.pm
@@ -1,6 +1,5 @@
 package System::Introspector::Report::Publish::MediaWiki;
 use Moo;
-use aliased 'System::Introspector::Report::Publish::MediaWiki::Producer';
 use aliased 'System::Introspector::Report::Publish::MediaWiki::Connection';
 
 has page_options => (
@@ -9,10 +8,6 @@ has page_options => (
   init_arg => 'page',
 );
 
-has producer => (is => 'lazy', handles => {
-  _render_page => 'render',
-});
-
 has connection => (is => 'ro', lazy => 1, builder => 1, handles => {
   get_page => 'get',
   put_page => 'put',
@@ -48,11 +43,11 @@ sub _sort_reports {
 }
 
 sub _publish_page {
-  my ($self, $reports, $page, $options) = @_;
+  my ($self, $reports, $page_name, $options) = @_;
   my $sorted = $self->_sort_reports($reports, $options->{report} || []);
-  print $self->_render_page($sorted);
-#  print $self->render_report($_)
-#    for @$sorted;
+  my $page = $self->get_page($page_name);
+  $page->update($sorted);
+  $self->put_page($page);
   return 1;
 }