From: Matt S Trout <mst@shadowcat.co.uk>
Date: Wed, 17 Dec 2014 14:12:40 +0000 (+0000)
Subject: make page_set copy correctly in with()
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6b35e5c5a6e8b1f151367c3c09430f16f4603db3;p=scpubgit%2FApp-SCS.git

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
--- 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 }