The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Extended::Web;
use strict;
use warnings;
use parent qw/Extended Amon2::Web/;

use Extended::Web::C::Root;

use Extended::Web::Request;
sub create_request  { Extended::Web::Request->new($_[1]) }

use Extended::Web::Dispatcher;
sub dispatch {
    my $ret = Extended::Web::Dispatcher->dispatch( $_[0] );
    die "response is not generated" unless $ret;
    return $ret;
}

# setup view class
use Tiffany::Text::MicroTemplate::Extended;
{
    my $view_conf = __PACKAGE__->config->{'Text::MicroTemplate::Extended'};
    my $view      = Tiffany::Text::MicroTemplate::Extended->new($view_conf);
    sub create_view { $view }
}

__PACKAGE__->load_plugins(
    'Web::HTTPSession' => {
        state => 'Cookie',
        store => 'OnMemory',
    },
    'Web::MobileAgent'
);

1;