lib/NCIP/Dancing.pm

   1 package NCIP::Dancing;
   2 use Dancer ':syntax';
   3
   4 our $VERSION = '0.1';
   5
   6 use NCIP;
   7
   8 my $conf_dir = $ENV{'NCIP_CONFIG_DIR'} || 't/config_sample';
   9
  10 any [ 'get', 'post' ] => '/' => sub {
  11     content_type 'application/xml';
  12     my $ncip = NCIP->new($conf_dir);
  13     my $xml  = param 'xml';
  14     if ( request->is_post ) {
  15         $xml = request->body;
  16     }
  17     my $content = $ncip->process_request($xml);
  18 #    warn $content;
  19     template 'main', { content => $content };
  20 };
  21
  22 true;