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 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;