lib/stemmaweb/Controller/Stexaminer.pm

   1 package stemmaweb::Controller::Stexaminer;
   2 use Moose;
   3 use namespace::autoclean;
   4 use File::Temp;
   5 use JSON;
   6 use Text::Tradition::Analysis qw/ run_analysis /;
   7
   8 BEGIN { extends 'Catalyst::Controller' }
   9
  10
  11 =head1 NAME
  12
  13 stemmaweb::Controller::Stexaminer - Simple controller for stemma display
  14
  15 =head1 DESCRIPTION
  16
  17 The stemma analysis tool with the pretty colored table.
  18
  19 =head1 METHODS
  20
  21  GET stexaminer/$textid
  22
  23 Renders the application for the text identified by $textid.
  24
  25 =head2 index
  26
  27 =cut
  28
  29 sub index :Path :Args(1) {
  30     my( $self, $c, $textid ) = @_;
  31     my $m = $c->model('Directory');
  32         my $tradition = $m->tradition( $textid );
  33         if( $tradition->stemma_count ) {
  34                 my $stemma = $tradition->stemma(0);
  35                 # TODO Think about caching the stemma in a session
  36                 $c->stash->{svg} = $stemma->as_svg;
  37                 $c->stash->{text_title} = $tradition->name;
  38                 $c->stash->{template} = 'stexaminer.tt';
  39                 # TODO Run the analysis as AJAX from the loaded page.
  40                 my $t = run_analysis( $tradition );
  41                 $c->stash->{variants} = $t->{'variants'};
  42                 $c->stash->{total} = $t->{'variant_count'};
  43                 $c->stash->{genealogical} = $t->{'genealogical_count'};
  44                 $c->stash->{conflict} = $t->{'conflict_count'};
  45         } else {
  46                 $c->stash->{error} = 'Tradition ' . $tradition->name
  47                         . 'has no stemma for analysis.';
  48         }
  49 }
  50
  51 =head2 end
  52
  53 Attempt to render a view, if needed.
  54
  55 =cut
  56
  57 sub end : ActionClass('RenderView') {}
  58
  59 =head1 AUTHOR
  60
  61 Tara L Andrews
  62
  63 =head1 LICENSE
  64
  65 This library is free software. You can redistribute it and/or modify
  66 it under the same terms as Perl itself.
  67
  68 =cut
  69
  70 __PACKAGE__->meta->make_immutable;
  71
  72 1;