[scpubgit/stemmaweb.git] / lib / stemmaweb / View / SVG.pm

package stemmaweb::View::SVG;

use strict;
use base 'Catalyst::View';
use Encode qw( decode_utf8 );

sub process {
        my( $self, $c ) = @_;
        $c->res->content_type( 'image/svg+xml' );
        $c->res->content_encoding( 'UTF-8' );
        $c->res->output( decode_utf8( $c->stash->{result} ) );
}

1;
Commit	Line	Data
b8a92065	1	package stemmaweb::View::SVG;
	2
	3	use strict;
	4	use base 'Catalyst::View';
	5	use Encode qw( decode_utf8 );
	6
	7	sub process {
	8	my( $self, $c ) = @_;
	9	$c->res->content_type( 'image/svg+xml' );
	10	$c->res->content_encoding( 'UTF-8' );
	11	$c->res->output( decode_utf8( $c->stash->{result} ) );
	12	}
	13
	14	1;