Continuing work on the AcceptItem handler
[working/NCIPServer.git] / lib / NCIP / Dancing.pm
1 package NCIP::Dancing;
2 use Dancer ':syntax';
3
4 our $VERSION = '0.1';
5
6 use NCIP;
7
8 any [ 'get', 'post' ] => '/' => sub {
9     my $ncip = NCIP->new('t/config_sample');
10     my $xml  = param 'xml';
11     if ( request->is_post ) {
12         $xml = request->body;
13     }
14     my $content = $ncip->process_request($xml);
15 #    warn $content;
16     template 'main', { content => $content };
17 };
18
19 true;