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