use POE;
use baozi;

POE::Session->create(
	inline_states => {
		_start => sub { $_[KERNEL]->yield('next1')},
		next1 => sub {
			print "tick ... \n";
			$_[KERNEL]->delay(next2 => 1);	
		},
		next2 => \&next2,	
		next3 =>\&baozi,
	},
);

POE::Kernel->run();

sub next2{
	print "tick 0 ... \n";
	$_[KERNEL]->yield('next3');
}

sub baozi{
	my $self = $_[OBJECT];
	print $self;
	$self->baozi::fun1();
}