Tidying up output, removing blank lines
[working/NCIPServer.git] / lib / NCIP / Handler.pm
1 package NCIP::Handler;
2 #
3 #===============================================================================
4 #
5 #         FILE: Hander.pm
6 #
7 #  DESCRIPTION:
8 #
9 #        FILES: ---
10 #         BUGS: ---
11 #        NOTES: ---
12 #       AUTHOR: Chris Cormack (rangi), chrisc@catalyst.net.nz
13 # ORGANIZATION: Koha Development Team
14 #      VERSION: 1.0
15 #      CREATED: 19/09/13 10:43:14
16 #     REVISION: ---
17 #===============================================================================
18
19 use Modern::Perl;
20 use Object::Tiny qw{ type namespace ils templates };
21 use Module::Load;
22 use Template;
23
24 sub new {
25     my $class    = shift;
26     my $params   = shift;
27     my $subclass = __PACKAGE__ . "::" . $params->{type};
28     load $subclass || die "Can't load module $subclass";
29     my $self = bless {
30         type      => $params->{type},
31         namespace => $params->{namespace},
32         ils       => $params->{ils},
33         templates => $params->{template_dir}
34     }, $subclass;
35     return $self;
36 }
37
38 sub render_output {
39     my $self         = shift;
40     my $templatename = shift;
41
42     my $vars     = shift;
43     my $template = Template->new(
44         {
45             INCLUDE_PATH => $self->templates,
46             POST_CHOMP   => 1
47         }
48     );
49     my $output;
50     $template->process( $templatename, $vars, \$output );
51     return $output;
52 }
53 1;