Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Octocat-spinner-32-eaf2f5

Cannot retrieve contributors at this time

file 35 lines (22 sloc) 0.447 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34
#!/usr/bin/perl
use strict; use warnings;
use Test::More;

my $cnt = 0;
my $cnt_start = 0;

{
package Test::MooseX::POE::DoubleBuild;

use MooseX::POE;

sub START {
$cnt_start++;
}

sub BUILD {
$cnt++;
}
}

Test::MooseX::POE::DoubleBuild->new;

is($cnt, 1, 'BUILD called once');

is($cnt_start, 0, 'START not called');

POE::Kernel->run;

is($cnt, 1, 'BUILD still called once');

is($cnt_start, 1, 'START called once');

done_testing();
Something went wrong with that request. Please try again.