2 use NCIP::Configuration;
4 use base qw(Class::Accessor);
8 my $class = ref $proto || $proto;
9 my $config_dir = shift;
11 my $config = NCIP::Configuration->new($config_dir);
12 $self->{config} = $config;
13 return bless $self, $class;
21 my $request_type = $self->handle_initiation($xml);
22 my $response = "<HTML> <HEAD> <TITLE>Hello There</TITLE> </HEAD> <BODY> <H1>Hello You Big JERK!</H1> Who would take this book seriously if the first eaxample didn't say \"hello world\"? </BODY> </HTML>";
27 sub handle_initiation {
31 return('lookup_item');