Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

52 lines (40 sloc) 0.932 kb
#!/usr/bin/env perl
use strict; use warnings;
use Test::More tests => 6;
my ($base_start_called, $extended_start_called);
{
package Base;
use MooseX::POE;
sub START {
# Do this rather than embedd ::ok(1) here so ath get proper failing reports
::pass('Base Start');
$base_start_called = 1;
};
sub on_foo {
::pass('on_foo');
$_[KERNEL]->yield('bar');
}
}
{
package Extended;
use MooseX::POE;
extends 'Base';
sub START {
::pass('Extended after Start');
$extended_start_called = 1;
$_[KERNEL]->yield('foo');
};
sub on_bar {
::pass('on_bar');
}
sub on_foo {
::pass('on_foo');
$_[KERNEL]->yield('bar');
}
}
my $foo = Extended->new();
POE::Kernel->run();
# If the test count for this test is wrong, on_foo probably isn't getting set
# as an event properly
ok($base_start_called, "Base START called");
ok($extended_start_called,"Extended START called");
Jump to Line
Something went wrong with that request. Please try again.