f42fe8eb3ce6152dcc08456626f6da303aaca9c3
[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     content_type 'application/xml';
10     my $ncip = NCIP->new('t/config_sample');
11     my $xml  = param 'xml';
12     if ( request->is_post ) {
13         $xml = request->body;
14     }
15     my $content = $ncip->process_request($xml);
16 #    warn $content;
17     template 'main', { content => $content };
18 };
19
20 true;