lib/NCIP.pm

   1 package NCIP;
   2 use NCIP::Configuration;
   3 use Modern::Perl;
   4
   5
   6 use FileHandle;
   7
   8 sub new {
   9     my $self = shift;
  10     my $config_file = shift;
  11
  12     my $config = NCIP::Configuration->new($config_file);
  13     return bless $config, $self;
  14
  15 }
  16
  17 sub process_request {
  18     my $self = shift;
  19     my $xml = shift;
  20
  21     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>";
  22
  23     return $response;
  24 }
  25
  26 1;