MooseX::POE Testing

moosex-poe-test.pl

#------------------------------------------------------------------------#
package base;
use MooseX::POE;

with qw( MooseX::POE::Aliased );

event process => sub {
    my ($self,$thing) = @_[OBJECT,ARG0];
    print "base::process called with $thing\n";
};

#------------------------------------------------------------------------#
package base::extended;
use MooseX::POE;

extends 'base';

has dbconn => (
    isa => 'Str',
    is => 'ro',
    required => 1,
);

#------------------------------------------------------------------------#
package base::awesome;
use MooseX::POE;

extends 'base::extended';

after 'process' => sub {
    my($self,$thing) = @_[OBJECT,ARG0];

    print "base::awesome::process adding value, $thing\n";
};