X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FApp-IdiotBox.git;a=blobdiff_plain;f=lib%2FApp%2FIdiotBox.pm;fp=lib%2FApp%2FIdiotBox.pm;h=af5bc38736f031e0b837e16057271585a9e371b6;hp=88e90c68239fb0bf86a52d995ed7aae9a32923d2;hb=362a876649bae71cd4792625a781dd461025d4a8;hpb=8b9d3d54830e9a5211821f593737ff60c5b688de

diff --git a/lib/App/IdiotBox.pm b/lib/App/IdiotBox.pm
index 88e90c6..af5bc38 100644
--- 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;