Malts::Web::Router::Simple::Declare

fuga.pl

package MyApp::Web;
use strict;
use warnings;
use parent qw(Malts Malts::Web);

sub startup {
    my ($self) = @_;
    MyApp::Web::Dispatcher->dispatch($self) or $self->not_found;
}

package MyApp::Web::Dispatcher;
use strict;
use warnings;
use Malts::Web::Router::Simple::Declare;

get '/' => 'Root#index';

Malts::Util::DEBUG && print router_as_string;

package MyApp::Web::Controller::Root;
use strict;
use warnings;
use FindBin;

$INC{'MyApp/Web/Controller/Root.pm'} = $FindBin::Bin;

sub index { $_[1]->ok('index!') }

package main;
use strict;
use warnings;

MyApp::Web->to_app;

=pod

テストしづらいのでどうにかしたい。

=cut