ASP4

 view release on metacpan or  search on metacpan

t/htdocs/form.pm  view on Meta::CPAN


package DefaultApp::form;

use strict;
use warnings 'all';
use base 'ASP4x::Controller';
use vars __PACKAGE__->VARS;


handle get => sub {
  my ($s, $context) = @_;
  
  $Response->Write("Requested via 'GET'");
};


handle post => sub {
  my ($s, $context) = @_;
  
  $Response->Write("Requested via 'POST'");
};


1;# return true:



( run in 0.907 second using v1.01-cache-2.11-cpan-ceb78f64989 )