view release on metacpan or  search on metacpan

lib/Acme/POE/Tree.pm  view on Meta::CPAN

	attrset($heap->{color_bg});
	addstr(0, 0, "Press q to quit.");
	refresh();
}

# Common shutdown code.

sub _handle_shut_down {
	delete $_[HEAP]{console};
	$_[KERNEL]->delay("light_cycle", undef);
	$_[KERNEL]->delay("star_cycle", undef);
}

1;

__END__

=head1 NAME

Acme::POE::Tree - an animated christmas tree

t/01_basic.t  view on Meta::CPAN

use Test::More tests => 2;
BEGIN { use_ok("Acme::POE::Tree") };

my $oldout;
if (open $oldout, ">&STDOUT") {
	if (open STDOUT, ">", "/dev/tty") {
		# yay
	}
	else {
		open STDOUT, ">&", $oldout;
		$oldout = undef;
	}
}

Acme::POE::Tree->new({ run_for => 5 })->run();

if ($oldout) {
	open STDOUT, ">&", $oldout;
	$oldout = undef;
}

pass("tree ran");