sub _load_posts { my $s = shift; if ( !-f $s->file ) { $s->_set_posts( {} ); } else { my $posts = retrieve $s->file; $s->_set_posts($posts); } }