view release on metacpan or  search on metacpan

lib/App/Donburi/Web/Dispatcher.pm  view on Meta::CPAN

    if ( my $p = $self->{router}->match($env) ) {
        my $c = "App::Donburi::Web::C::" . $p->{controller};
        my $action = 'do_' . $p->{action};
        load_class($c);
        my $req = App::Donburi::Web::Request->new($env);
        my $ci = $c->new(req => $req);
        my $res = $ci->$action;
        return $res && ref($res) eq 'ARRAY' ? $res : $ci->auto_render($p->{action}, $res);
    } else {
        return [ 404, [], ['not found'] ];
    }
}

sub is_called_json_rpc {
    my ($env, $match) = @_;
    my $req = App::Donburi::Web::Request->new($env);
    return defined $req->param('params') && defined $req->param('method');
}

1;