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 | |
15 | has _page_dispatchers => (is => 'lazy'); |
16 | |
17 | sub _build__page_dispatchers { |
18 | my ($self) = @_; |
19 | [ map $_->page_dispatchers, reverse @{$self->app->plugins} ] |
20 | } |
21 | |
22 | sub dispatch_request { |
23 | my ($self) = @_; |
24 | return @{$self->_page_dispatchers}; |
25 | } |
26 | |
27 | 1; |