projects
/
scpubgit/App-SCS.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
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
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 }