17 lines
393 B
Perl
17 lines
393 B
Perl
package Hydra::View::Plain;
|
|
|
|
use strict;
|
|
use warnings;
|
|
use base 'Catalyst::View::Download::Plain';
|
|
|
|
sub process {
|
|
my ($self, $c) = @_;
|
|
$c->clear_encoding;
|
|
my $type = $c->response->content_type();
|
|
$c->response->content_type('text/plain; charset=utf-8')
|
|
if !$type || $c->response->content_type() eq "text/plain";
|
|
$c->response->body($c->stash->{plain}->{data});
|
|
}
|
|
|
|
1;
|