Let this blog post be also an invitation to my talk that I'll have on this years YAPC::EU::2011 in Riga and a reason "Why?" there will be more questions then answers.

There is one question that keeps me busy for quite some months now already and that is: What if the knowledge and wisdom is not in answers, but in questions?

As it kept me busy for just too long and as I'm a full-time Perl programmer, I've decided to write a code to help me answer "Why?".

package Acme::KnowledgeWisdom;

our $VERSION = '0.01';

use Moose;
use warnings FATAL => 'all';

has 'in_questions' => ( isa => 'Bool', is => 'ro', default => 1);
has 'has_already' => ( isa => 'Bool', is => 'ro', default => 0);

sub get {
my $kw = shift;

return $kw->ask
if $kw->in_questions;

return 42;

sub ask {
my $self = shift;

return 42
if $self->has_already;

my $kw = Acme::KnowledgeWisdom->new;
return $kw->get;


The module is well tested ;-) and is of course on CPAN.


Leave a comment

About Jozef

user-pic I'll cross-post here Perl related entries from my private blog.