Skip to content


Subversion checkout URL

You can clone with
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

45 lines (35 sloc) 825 Bytes
use strict;
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 {
package Extended;
use MooseX::POE;
extends 'Base';
sub START {
::pass('Extended after Start');
$extended_start_called = 1;
sub on_bar {
my $foo = Extended->new();
# 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.