fix config handling, finish porting bloggery, safer exporting

[catagits/Web-Simple.git] / examples / bloggery / bloggery.cgi

diff --git a/examples/bloggery/bloggery.cgi b/examples/bloggery/bloggery.cgi
index b315b44..8e19886 100755 (executable)
--- a/examples/bloggery/bloggery.cgi
+++ b/examples/bloggery/bloggery.cgi
@@ -66,17 +66,20 @@ sub summary_html {
 
 package Bloggery;
 
-default_config(
-  title => 'Bloggery',
-  posts_dir => $FindBin::Bin.'/posts',
-);
+has post_list => (is => 'lazy');
 
-sub post_list {
+sub default_config {
+  (
+    title => 'Bloggery',
+    posts_dir => $FindBin::Bin.'/posts',
+  );
+}
+
+sub _build_post_list {
   my ($self) = @_;
-  $self->{post_list}
-    ||= Bloggery::PostList->from_dir(
-          $self->config->{posts_dir}
-        );
+  Bloggery::PostList->from_dir(
+    $self->config->{posts_dir}
+  );
 }
 
 sub post {
@@ -87,10 +90,10 @@ sub post {
 sub dispatch_request {
   my $self = shift;
   sub (GET + /) {
-    redispatch_to '/index.html';
+    redispatch_to '/index.html'
   },
   sub (.html) {
-    response_filter { $self->render_html($_[1]) },
+    response_filter { $self->render_html(@_) }
   },
   sub (GET + /index) {
     $self->post_list