lib/App/SCS/Web.pm

   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 sub dispatch_request {
  16   my ($self) = @_;
  17   return @{$self->_page_dispatchers};
  18 }
  19
  20 1;