emaciated model and controller for summaries

lib/Text/TranscriptMiner/Web/Controller/Summaries.pm

@@ -0,0 +1,30 @@
+package Text::TranscriptMiner::Web::Controller::Summaries;
+
+use strict;
+use warnings;
+use parent 'Catalyst::Controller';
+
+sub index :Path :Args(0) {
+    my ( $self, $c ) = @_;
+    $c->forward('get_menu');
+}
+
+sub default :Path {
+    my ( $self, $c ) = @_;
+    $c->response->body( 'Page not found' );
+    $c->response->status(404);
+}
+
+sub end : ActionClass('RenderView') {}
+
+sub get_menu :Private {
+    my ($self, $c) = @_;
+    my $cmp = $c->model('Summary')->new(
+        {
+            start_dir => $c->config->{analysis_dir},
+            cmp_name  => ['pre_implementation_first_cut', 'summary']
+        });
+    $c->stash(comparisons => $cmp);
+}
+
+1;

lib/Text/TranscriptMiner/Web/Model/Summary.pm

@@ -0,0 +1,6 @@
+package Text::TranscriptMiner::Web::Model::Summary;
+use Moose;
+BEGIN {extends 'Catalyst::Model';
+       extends 'Text::TranscriptMiner::Document::Comparisons';
+};
+1;