• Files
• Commits
• Log
• Graph
• Stats

package RequestForm;

use Dancer2;
use Dancer2::Plugin::Ajax;

use RequestForm::Validate;
use Data::Dumper::Concise;

our $VERSION = '0.1';

hook before => sub { };

get '/index' => sub { template 'index' }; # [% vars.time %]

get '/' => sub { template 'form' };

post '/' => sub {
    my $vars = params; # warn Dumper $vars;
    
    my $dfv = RequestForm::Validate->new();

    my $results = $dfv->validate($vars); # DEBUG($results);

    if ( $results->has_invalid or $results->has_missing ) { # warn Dumper $results;
        template 'form', { errs => $results->msgs, params => $vars }
    }
    else { # no validation errors:
        set_flash('Form validated OK');
    }
};

ajax '/nhs_number/:var' => sub { # warn 'here'; warn Dumper params;
    warn params->{var};
    to_xml({}, RootName => undef);
};

true;