package SynAdmin::Response;
use base 'SynAdmin';

use warnings;
use strict;

sub print {
        my ($self) = @_;
        $$self{r}->content_type('text/plain');
        $self->tpl_proc()->process('main.tpl', $self{data}, $$self{r});
}

1;