make page_set copy correctly in with()

diff --git a/lib/App/SCS/Page.pm b/lib/App/SCS/Page.pm
index 9a01b9e..0099055 100644 (file)
--- a/lib/App/SCS/Page.pm
+++ b/lib/App/SCS/Page.pm
@@ -7,7 +7,7 @@ use Module::Runtime qw(use_module);
 use HTML::Zoom;
 use Moo;
 
-has "_$_" => (is => 'ro', init_arg => $_) for qw(page_set);
+has $_ => (is => 'ro', reader => "_$_", init_arg => $_) for qw(page_set);
 
 sub _page_set_class { ref($_[0]->_page_set) }
 sub _top_dir { $_[0]->_page_set->top_dir }