basic porting work for SCSite

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

diff --git a/lib/App/SCS/Page.pm b/lib/App/SCS/Page.pm
index a05c5e9..0c2e76f 100644 (file)
--- a/lib/App/SCS/Page.pm
+++ b/lib/App/SCS/Page.pm
@@ -7,6 +7,12 @@ use List::Util qw(reduce);
 use Module::Runtime qw(use_module);
 use Moo;
 
+has "_$_" => (is => 'ro', init_arg => $_) for qw(page_set);
+
+sub _page_set_class { ref($_[0]->_page_set) }
+sub _top_dir { $_[0]->_page_set->top_dir }
+sub _my_path { io->dir($_[0]->_top_dir)->catdir($_[0]->path) }
+
 with 'App::SCS::Role::PageChildren';
 
 has $_ => (is => 'ro') for qw(
@@ -65,12 +71,6 @@ sub published_at {
     : ''
 }
 
-has "_$_" => (is => 'ro', init_arg => $_) for qw(page_set);
-
-sub _page_set_class { ref($_[0]->_page_set) }
-sub _top_dir { $_[0]->_page_set->top_dir }
-sub _my_path { io->dir($_[0]->_top_dir)->catdir($_[0]->path) }
-
 sub to_app {
   my ($self) = @_;
   return sub { $self->to_psgi_response(@_) };