sub skip_tests { return "Tk needs a DISPLAY (set one today, okay?)" unless ( (defined $ENV{DISPLAY} and length $ENV{DISPLAY}) or $^O eq "MSWin32" ); my $test_name = shift; if ($test_name eq "k_signals_rerun" and $^O eq "MSWin32") { return "This test crashes Perl when run with Tk on $^O"; } return "Tk tests require the Tk module" if do { eval "use Tk"; $@ }; return; }

NAME

POE::Loop::Tk - a bridge that supports Tk's event loop from POE

SYNOPSIS

See POE::Loop.

DESCRIPTION

This class is an implementation of the abstract POE::Loop interface. It follows POE::Loop's public interface exactly. Therefore, please see POE::Loop for its documentation.

SEE ALSO

POE, POE::Loop, Tk

AUTHORS & LICENSING

Please see POE for more information about authors, contributors, and POE's licensing.