switch to Moo accessors in IdiotBox.pm

diff --git a/lib/App/IdiotBox.pm b/lib/App/IdiotBox.pm
index 88e90c6..af5bc38 100644 (file)
--- a/lib/App/IdiotBox.pm
+++ b/lib/App/IdiotBox.pm
@@ -41,6 +41,8 @@ use List::Util qw(first);
   }
 }
 
+has $_ => (is => 'ro') for qw(recent_announcements buckets);
+
 sub default_config {
   template_dir => 'share/html',
   store => 'SQLite',
@@ -74,10 +76,6 @@ sub dispatch_request {
   }
 }
 
-sub recent_announcements { shift->{recent_announcements} }
-
-sub buckets { shift->{buckets} }
-
 sub show_front_page {
   my $self = shift;
   my $ann = $self->recent_announcements;