Commit | Line | Data |
---|---|---|
632f0e07 | 1 | package App::SCS::Web; |
2 | ||
3 | use Safe::Isa; | |
4 | use Web::Simple; | |
5 | ||
6 | has app => (is => 'ro', weak_ref => 1, required => 1); | |
7 | ||
8 | has _page_dispatchers => (is => 'lazy'); | |
9 | ||
10 | sub _build__page_dispatchers { | |
11 | my ($self) = @_; | |
12 | [ map $_->page_dispatchers, reverse @{$self->app->plugins} ] | |
13 | } | |
14 | ||
632f0e07 | 15 | sub dispatch_request { |
16 | my ($self) = @_; | |
17 | return @{$self->_page_dispatchers}; | |
18 | } | |
19 | ||
20 | 1; |