1 package TreeOfTexts::Controller::Stemmagraph;
3 use namespace::autoclean;
5 use Text::Tradition::Collation;
6 use Text::Tradition::Stemma;
8 BEGIN { extends 'Catalyst::Controller' }
11 # Sets the actions in this controller to be registered with no prefix
12 # so they function identically to actions created in MyApp.pm
14 __PACKAGE__->config(namespace => '');
18 TreeOfTexts::Controller::Root - Root Controller for TreeOfTexts
22 [enter your description here]
32 sub index :Path :Args(0) {
33 my ( $self, $c ) = @_;
34 $c->stash->{template} = 'dotinput.tt2';
37 sub get_graph :Local {
39 # If called interactively, we have params 'display', 'output', 'witnesses'
40 # If called non-interactively, we look at headers and content.
41 # The body is actually a File::Temp object; this is undocumented but
46 if( $c->request->params->{'dot'} ) {
47 # Make a File::Temp object.
48 my $tmpfile = File::Temp->new( UNLINK => 0 );
49 print $tmpfile $c->request->params->{'dot'};
50 $dotfile = $tmpfile->filename;
53 $dotfile = $c->request->body;
57 # Render the dot in the given format.
58 my $collation = Text::Tradition::Collation->new();
59 my $stemma = Text::Tradition::Stemma->new( 'collation' => $collation, 'dot' => $dotfile );
60 unlink( $dotfile ) if $must_unlink;
61 $c->stash->{result} = $stemma->as_svg;
62 $c->forward( "View::SVG" );
67 Standard 404 error page
72 my ( $self, $c ) = @_;
73 $c->response->body( 'Page not found' );
74 $c->response->status(404);
79 Attempt to render a view, if needed.
83 sub end : ActionClass('RenderView') {}
91 This library is free software. You can redistribute it and/or modify
92 it under the same terms as Perl itself.
96 __PACKAGE__->meta->make_immutable;