[scpubgit/App-SCS.git] / lib / App / SCS / Web.pm

package App::SCS::Web;

use Safe::Isa;
use Web::Simple;

has app => (is => 'ro', weak_ref => 1, required => 1);

has _page_dispatchers => (is => 'lazy');

sub _build__page_dispatchers {
  my ($self) = @_;
  [ map $_->page_dispatchers, reverse @{$self->app->plugins} ]
}

has _page_dispatchers => (is => 'lazy');

sub _build__page_dispatchers {
  my ($self) = @_;
  [ map $_->page_dispatchers, reverse @{$self->app->plugins} ]
}

sub dispatch_request {
  my ($self) = @_;
  return @{$self->_page_dispatchers};
}

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