Jozef

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;

}

1;

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

(cross-posted)