#!/usr/bin/env perl
use strict; use warnings;
use Test::More tests => 3;
{
package Counter;
use MooseX::POE::SweetArgs;
has count => (is => 'rw', default => 1);
sub START {
my ($self) = @_;
$self->yield(add => 5);
}
event add => sub {
my ($self, $n) = @_;
::is(scalar @_, 2, 'correct number of args');
::is($n, 5, 'got the right value');
$self->count( $self->count + $n );
};
no MooseX::POE::SweetArgs;
}
my $counter = Counter->new;
POE::Kernel->run;
is($counter->count, 6, 'correct final count');