lib/NCIP/Dancing.pm

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