make page_set copy correctly in with()

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

diff --git a/lib/App/SCS/Page.pm b/lib/App/SCS/Page.pm
index 28edde4..0099055 100644 (file)
--- a/lib/App/SCS/Page.pm
+++ b/lib/App/SCS/Page.pm
@@ -2,13 +2,12 @@ package App::SCS::Page;
 
 use IO::All;
 use Time::Local qw(timelocal);
-use Data::Pond qw(pond_read_datum pond_write_datum);
 use List::Util qw(reduce);
 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 }