no need for default in non-Root
[scpubgit/stemmatology.git] / TreeOfTexts / lib / TreeOfTexts / Controller / Stemmagraph.pm
CommitLineData
3f9bd252 1package TreeOfTexts::Controller::Stemmagraph;
2use Moose;
3use namespace::autoclean;
cbd0c7d9 4use File::Temp;
3f9bd252 5use Text::Tradition::Collation;
6use Text::Tradition::Stemma;
7
8BEGIN { extends 'Catalyst::Controller' }
9
10#
11# Sets the actions in this controller to be registered with no prefix
12# so they function identically to actions created in MyApp.pm
13#
14__PACKAGE__->config(namespace => '');
15
16=head1 NAME
17
18TreeOfTexts::Controller::Root - Root Controller for TreeOfTexts
19
20=head1 DESCRIPTION
21
22[enter your description here]
23
24=head1 METHODS
25
a5b3c760 26=cut
27
3f9bd252 28sub get_graph :Local {
29 my( $self, $c ) = @_;
30 # If called interactively, we have params 'display', 'output', 'witnesses'
31 # If called non-interactively, we look at headers and content.
32 # The body is actually a File::Temp object; this is undocumented but
33 # so it seems to be.
cbd0c7d9 34 my $dotfile;
35 $DB::single = 1;
36 my $must_unlink = 0;
37 if( $c->request->params->{'dot'} ) {
38 # Make a File::Temp object.
39 my $tmpfile = File::Temp->new( UNLINK => 0 );
40 print $tmpfile $c->request->params->{'dot'};
41 $dotfile = $tmpfile->filename;
42 $must_unlink = 1;
43 } else {
44 $dotfile = $c->request->body;
45 }
3f9bd252 46 my $format = 'svg';
47
48 # Render the dot in the given format.
49 my $collation = Text::Tradition::Collation->new();
cbd0c7d9 50 my $stemma = Text::Tradition::Stemma->new( 'collation' => $collation, 'dot' => $dotfile );
51 unlink( $dotfile ) if $must_unlink;
3f9bd252 52 $c->stash->{result} = $stemma->as_svg;
53 $c->forward( "View::SVG" );
54}
55
3f9bd252 56=head2 end
57
58Attempt to render a view, if needed.
59
60=cut
61
62sub end : ActionClass('RenderView') {}
63
64=head1 AUTHOR
65
66Tara L Andrews
67
68=head1 LICENSE
69
70This library is free software. You can redistribute it and/or modify
71it under the same terms as Perl itself.
72
73=cut
74
75__PACKAGE__->meta->make_immutable;
76
771;