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