a9fab254c23bc055303090e5ce2d0e6c4543e81b
[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 };
21
22 use NCIP::Handler::LookupItem;
23
24 sub new {
25     my $class    = shift;
26     my $params   = shift;
27     my $subclass = __PACKAGE__ . "::" . $params->{type};
28     my $self     = bless {
29         type      => $params->{type},
30         namespace => $params->{namespace},
31         ils       => $params->{ils}
32     }, $subclass;
33     return $self;
34 }
35
36 1;