r44753 - in /branches/upstream/libpoe-loop-gtk-perl: ./ current/ current/lib/ current/lib/POE/ current/lib/POE/Loop/ current/t/
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Sep 25 03:57:32 UTC 2009
Author: jawnsy-guest
Date: Fri Sep 25 03:57:00 2009
New Revision: 44753
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=44753
Log:
[svn-inject] Installing original source of libpoe-loop-gtk-perl
Added:
branches/upstream/libpoe-loop-gtk-perl/
branches/upstream/libpoe-loop-gtk-perl/current/
branches/upstream/libpoe-loop-gtk-perl/current/CHANGES
branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST
branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST.SKIP
branches/upstream/libpoe-loop-gtk-perl/current/META.yml
branches/upstream/libpoe-loop-gtk-perl/current/Makefile.PL
branches/upstream/libpoe-loop-gtk-perl/current/README
branches/upstream/libpoe-loop-gtk-perl/current/lib/
branches/upstream/libpoe-loop-gtk-perl/current/lib/POE/
branches/upstream/libpoe-loop-gtk-perl/current/lib/POE/Loop/
branches/upstream/libpoe-loop-gtk-perl/current/lib/POE/Loop/Gtk.pm
branches/upstream/libpoe-loop-gtk-perl/current/t/
branches/upstream/libpoe-loop-gtk-perl/current/t/00_info.t
Added: branches/upstream/libpoe-loop-gtk-perl/current/CHANGES
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-loop-gtk-perl/current/CHANGES?rev=44753&op=file
==============================================================================
--- branches/upstream/libpoe-loop-gtk-perl/current/CHANGES (added)
+++ branches/upstream/libpoe-loop-gtk-perl/current/CHANGES Fri Sep 25 03:57:00 2009
@@ -1,0 +1,71 @@
+======================================
+9999-99-99 99:99:99.999999Z (untagged)
+======================================
+
+ 2009-09-07 19:33:27 (r2680) by rcaputo; polo-gtk/lib/POE/Loop/Gtk.pm M
+
+ Bump version for next release.
+
+ 2009-09-04 07:05:48 (r2670) by rcaputo; polo-gtk/lib/POE/Loop/Gtk.pm M
+
+ z_rt39872_sigchld_stop crashes Gdk, so skip it. Also, bypass
+ Gtk->init_check() because it returns failure when Gtk is present and
+ accounted for. [rt 28804]
+
+ 2009-09-04 04:58:00 (r2669) by rcaputo; polo-gtk/lib/POE/Loop/Gtk.pm M
+
+ Try (vainly) to elicit an error from Gtk when it fails to init.
+
+=====================================
+2009-08-27T04:27:51.928843Z plg-1_302
+=====================================
+
+ 2009-08-27 04:25:43 (r2651) by rcaputo
+ polo-gtk/lib/POE/Loop/Gtk.pm M; polo-gtk/Makefile.PL M
+
+ Add the info test we forgot to include.
+
+=====================================
+2009-08-26T15:36:33.809144Z plg-1_301
+=====================================
+
+ 2009-08-26 15:32:01 (r2646) by rcaputo
+ polo-gtk/lib/POE/Loop/Gtk.pm M; polo-gtk/Makefile.PL M
+
+ Add POE::Test::Loops to configure_requires and build_requires.
+
+=====================================
+2009-08-26T02:34:39.613499Z plg-1_300
+=====================================
+
+ 2009-08-26 02:30:48 (r2639) by rcaputo; polo-gtk/Makefile.PL M
+
+ We use the generic svn-log.perl, not the one included in POE.
+
+ 2009-08-25 17:05:17 (r2635) by rcaputo
+ polo-gtk/lib/POE/Loop A; polo-gtk/lib/POE/Loop/Gtk.pm A;
+ polo-tk/MANIFEST.SKIP A; polo-gtk/lib A; polo-gtk/MANIFEST A;
+ polo-gtk/MANIFEST.SKIP A; poe/lib/POE/Loop/TkActiveState.pm D;
+ polo-tk/Makefile.PL A; polo-tk/lib/POE A; polo-tk/lib/POE/Loop/Tk.pm A;
+ polo-gtk/Makefile.PL A; polo-tk/t/00_info.t A; polo-tk A;
+ poe/lib/POE/Loop/Gtk.pm D; polo-gtk/lib/POE A;
+ poe/lib/POE/Loop/TkCommon.pm D; polo-tk/lib/POE/Loop A; polo-tk/t A;
+ polo-gtk/README A; polo-event/lib/POE/Loop A; polo-gtk/t/00_info.t A;
+ polo-tk/MANIFEST A; polo-gtk A; polo-event/MANIFEST A; polo-event/lib
+ A; polo-gtk/t A; polo-event/MANIFEST.SKIP A;
+ polo-tk/lib/POE/Loop/TkActiveState.pm A; poe/mylib/Makefile-5005.pm M;
+ poe/lib/POE/Loop/Tk.pm D; polo-event/Makefile.PL A;
+ poe/lib/POE/Loop/Event.pm D; polo-event/lib/POE A; polo-tk/README A;
+ polo-event/README A; polo-event/lib/POE/Loop/Event.pm A;
+ polo-event/t/00_info.t A; polo-event A;
+ polo-tk/lib/POE/Loop/TkCommon.pm A; poe/MANIFEST M; polo-tk/lib A;
+ polo-event/t A
+
+ Create new project directories for POE::Loop::{Event,Tk,Gtk}. Moved
+ the loops to their new project directories. Configured the new
+ projects for CPAN distribution. Removed the event loops from POE's
+ distro configuration.
+
+==============
+End of Excerpt
+==============
Added: branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST?rev=44753&op=file
==============================================================================
--- branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST (added)
+++ branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST Fri Sep 25 03:57:00 2009
@@ -1,0 +1,8 @@
+CHANGES
+MANIFEST
+MANIFEST.SKIP
+META.yml
+Makefile.PL
+README
+lib/POE/Loop/Gtk.pm
+t/00_info.t
Added: branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST.SKIP
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST.SKIP?rev=44753&op=file
==============================================================================
--- branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST.SKIP (added)
+++ branches/upstream/libpoe-loop-gtk-perl/current/MANIFEST.SKIP Fri Sep 25 03:57:00 2009
@@ -1,0 +1,29 @@
+CVS
+\.\#
+\.bak$
+\.cvsignore
+\.gz$
+\.orig$
+\.patch$
+\.ppd$
+\.rej$
+\.rej$
+\.svn
+\.swo$
+\.swp$
+^Makefile$
+^Makefile\.old$
+^\.
+^_Inline
+^_build
+^blib/
+^comptest
+^cover_db
+^coverage\.report$
+^docs
+^pm_to_blib$
+^poe_report\.xml$
+run_network_tests
+test-output\.err$
+t/[23]0_.*\.t
+~$
Added: branches/upstream/libpoe-loop-gtk-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-loop-gtk-perl/current/META.yml?rev=44753&op=file
==============================================================================
--- branches/upstream/libpoe-loop-gtk-perl/current/META.yml (added)
+++ branches/upstream/libpoe-loop-gtk-perl/current/META.yml Fri Sep 25 03:57:00 2009
@@ -1,0 +1,28 @@
+--- #YAML:1.0
+name: POE-Loop-Gtk
+version: 1.303
+abstract: Gtk event loop support for POE.
+author:
+ - Rocco Caputo <rcaputo at cpan.org>
+license: unknown
+distribution_type: module
+configure_requires:
+ ExtUtils::MakeMaker: 0
+ POE::Test::Loops: 1.021
+build_requires:
+ ExtUtils::MakeMaker: 0
+ POE::Test::Loops: 1.021
+requires:
+ Gtk: 0.7009
+ POE: 1.007
+resources:
+ license: http://dev.perl.org/licenses/
+ repository: https://poe.svn.sourceforge.net/svnroot/poe/trunk/polo-gtk
+no_index:
+ directory:
+ - t
+ - inc
+generated_by: ExtUtils::MakeMaker version 6.54
+meta-spec:
+ url: http://module-build.sourceforge.net/META-spec-v1.4.html
+ version: 1.4
Added: branches/upstream/libpoe-loop-gtk-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-loop-gtk-perl/current/Makefile.PL?rev=44753&op=file
==============================================================================
--- branches/upstream/libpoe-loop-gtk-perl/current/Makefile.PL (added)
+++ branches/upstream/libpoe-loop-gtk-perl/current/Makefile.PL Fri Sep 25 03:57:00 2009
@@ -1,0 +1,108 @@
+#!/usr/bin/perl
+# rocco // vim: ts=2 sw=2 expandtab
+
+use warnings;
+use strict;
+use ExtUtils::MakeMaker;
+use POE::Test::Loops;
+
+# Switch to default behavior if STDIN isn't a tty.
+
+unless (-t STDIN) {
+ warn(
+ "\n",
+ "=============================================\n\n",
+ "STDIN is not a terminal. Assuming --default.\n\n",
+ "=============================================\n\n",
+ );
+ push @ARGV, "--default";
+}
+
+# Remind the user she can use --default.
+
+unless (grep /^--default$/, @ARGV) {
+ warn(
+ "\n",
+ "=============================================\n\n",
+ "Prompts may be bypassed by running:\n",
+ " $^X $0 --default\n\n",
+ "=============================================\n\n",
+ );
+}
+
+# Should we skip the network tests?
+
+my $prompt = (
+ "Some of POE::Loop::Gtk's tests require a\n" .
+ "functional network. You can skip these network\n" .
+ "tests if you'd like.\n\n" .
+ "Would you like to skip the network tests?"
+);
+
+my $ret = "n";
+if (grep /^--default$/, @ARGV) {
+ print $prompt, " [$ret] $ret\n\n";
+}
+else {
+ $ret = prompt($prompt, "n");
+}
+
+my $marker = 'run_network_tests';
+unlink $marker;
+unless ($ret =~ /^Y$/i) {
+ open(TOUCH,"+>$marker") and close TOUCH;
+}
+
+print "\n";
+
+### Touch files that will be generated at "make dist" time.
+### ExtUtils::MakeMaker and Module::Build will complain about them if
+### they aren't present now.
+
+open(TOUCH, ">>CHANGES") and close TOUCH;
+open(TOUCH, ">>META.yml") and close TOUCH;
+
+POE::Test::Loops::generate( 't', [ 'POE::Loop::Gtk' ], 0 );
+
+WriteMakefile(
+ NAME => 'POE::Loop::Gtk',
+ AUTHOR => 'Rocco Caputo <rcaputo at cpan.org>',
+ ABSTRACT => 'Gtk event loop support for POE.',
+ VERSION_FROM => 'lib/POE/Loop/Gtk.pm',
+ META_ADD => {
+ resources => {
+ license => 'http://dev.perl.org/licenses/',
+ repository => (
+ 'https://poe.svn.sourceforge.net/svnroot/poe/trunk/polo-gtk'
+ ),
+ },
+ },
+ dist => {
+ COMPRESS => 'gzip -9f',
+ SUFFIX => 'gz',
+ PREOP => (
+ 'svn-log.perl --tags ^plg- | ' .
+ '/usr/bin/tee ./$(DISTNAME)-$(VERSION)/CHANGES > ./CHANGES'
+ ),
+ },
+ clean => { FILES => 't/poe_loop_gtk/*.t t/poe_loop_gtk' },
+ test => { TESTS => 't/*.t t/poe_loop_gtk/*.t' },
+
+ CONFIGURE_REQUIRES => {
+ 'ExtUtils::MakeMaker' => 0,
+ 'POE::Test::Loops' => 1.021,
+ },
+
+ META_MERGE => {
+ build_requires => {
+ 'POE::Test::Loops' => 1.021,
+ },
+ },
+
+ PREREQ_PM => {
+ 'POE' => 1.007,
+ 'Gtk' => 0.7009,
+ },
+);
+
+1;
Added: branches/upstream/libpoe-loop-gtk-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-loop-gtk-perl/current/README?rev=44753&op=file
==============================================================================
--- branches/upstream/libpoe-loop-gtk-perl/current/README (added)
+++ branches/upstream/libpoe-loop-gtk-perl/current/README Fri Sep 25 03:57:00 2009
@@ -1,0 +1,11 @@
+POE supports nearly any event loop imaginable through POE::Loop plugin
+modules. POE::Loop::Gtk is the plugin support for Gtk's event loop.
+
+See http://search.cpan.org/search?query=POE%3A%3ALoop&mode=module for
+a list of other event loops POE supports.
+
+POE::Loop documents the generic API for all POE::Loop subclasses. You
+are invited to implement this API for your favorite event loop.
+Kudos, bug reports, and patches are also welcome.
+
+Thank you!
Added: branches/upstream/libpoe-loop-gtk-perl/current/lib/POE/Loop/Gtk.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-loop-gtk-perl/current/lib/POE/Loop/Gtk.pm?rev=44753&op=file
==============================================================================
--- branches/upstream/libpoe-loop-gtk-perl/current/lib/POE/Loop/Gtk.pm (added)
+++ branches/upstream/libpoe-loop-gtk-perl/current/lib/POE/Loop/Gtk.pm Fri Sep 25 03:57:00 2009
@@ -1,0 +1,362 @@
+# Gtk-Perl event loop bridge for POE::Kernel.
+
+# Empty package to appease perl.
+package POE::Loop::Gtk;
+
+use strict;
+
+# Include common signal handling.
+use POE::Loop::PerlSignals;
+
+use vars qw($VERSION);
+$VERSION = '1.303'; # NOTE - Should be #.### (three decimal places)
+
+=for poe_tests
+
+sub skip_tests {
+ my $test_name = shift;
+ return "Gtk needs a DISPLAY (set one today, okay?)" unless (
+ defined $ENV{DISPLAY} and length $ENV{DISPLAY}
+ );
+ return "Gtk tests require the Gtk module" if do { eval "use Gtk"; $@ };
+ return "Gtk init failed. Is DISPLAY valid?" unless defined Gtk->init_check;
+ if ($test_name eq "z_rt39872_sigchld_stop") {
+ return "Gdk crashes";
+ }
+ return;
+}
+
+=cut
+
+# Everything plugs into POE::Kernel.
+package POE::Kernel;
+
+use strict;
+
+my $_watcher_timer;
+my @fileno_watcher;
+my $gtk_init_check;
+
+#------------------------------------------------------------------------------
+# Loop construction and destruction.
+
+sub loop_initialize {
+ my $self = shift;
+
+ # Must Gnome->init() yourselves, as it takes parameters.
+ unless (exists $INC{'Gnome.pm'}) {
+ # Gtk can only be initialized once.
+ # So if we've initialized it already, skip the whole deal.
+ unless($gtk_init_check) {
+ $gtk_init_check++;
+
+ # Clear errno to avoid bleed-through during potential error display.
+ $! = 0;
+
+ # TODO - Force detection on. For some reason it's returning
+ # false when Gtk is present and accounted for.
+ my $res = 1 || Gtk->init_check();
+
+ # Now check whether the init was ok.
+ # undefined == icky; TRUE (whatever that means in gtk land) means Ok.
+ if (defined $res) {
+ Gtk->init();
+ } else {
+ POE::Kernel::_die "Gtk initialization failed. Chances are it couldn't connect to a display. Of course, Gtk doesn't put its error message anywhere I can find so we can't be more specific here ($!) ($@)";
+ }
+ }
+ }
+}
+
+sub loop_finalize {
+ my $self = shift;
+
+ foreach my $fd (0..$#fileno_watcher) {
+ next unless defined $fileno_watcher[$fd];
+ foreach my $mode (MODE_RD, MODE_WR, MODE_EX) {
+ POE::Kernel::_warn(
+ "Mode $mode watcher for fileno $fd is defined during loop finalize"
+ ) if defined $fileno_watcher[$fd]->[$mode];
+ }
+ }
+
+ $self->loop_ignore_all_signals();
+}
+
+#------------------------------------------------------------------------------
+# Signal handler maintenance functions.
+
+# This function sets us up a signal when whichever window is passed to
+# it closes.
+sub loop_attach_uidestroy {
+ my ($self, $window) = @_;
+
+ # Don't bother posting the signal if there are no sessions left. I
+ # think this is a bit of a kludge: the situation where a window
+ # lasts longer than POE::Kernel should never occur.
+ $window->signal_connect(
+ delete_event => sub {
+ if ($self->_data_ses_count()) {
+ $self->_dispatch_event
+ ( $self, $self,
+ EN_SIGNAL, ET_SIGNAL, [ 'UIDESTROY' ],
+ __FILE__, __LINE__, undef, time(), -__LINE__
+ );
+ }
+ return 0;
+ }
+ );
+}
+
+#------------------------------------------------------------------------------
+# Maintain time watchers.
+
+sub loop_resume_time_watcher {
+ my ($self, $next_time) = @_;
+ $next_time -= time();
+ $next_time *= 1000;
+ $next_time = 0 if $next_time < 0;
+ $_watcher_timer = Gtk->timeout_add($next_time, \&_loop_event_callback);
+}
+
+sub loop_reset_time_watcher {
+ my ($self, $next_time) = @_;
+ # Should always be defined, right?
+ Gtk->timeout_remove($_watcher_timer);
+ undef $_watcher_timer;
+ $self->loop_resume_time_watcher($next_time);
+}
+
+sub _loop_resume_timer {
+ Gtk->idle_remove($_watcher_timer);
+ $poe_kernel->loop_resume_time_watcher($poe_kernel->get_next_event_time());
+}
+
+sub loop_pause_time_watcher {
+ # does nothing
+}
+
+#------------------------------------------------------------------------------
+# Maintain filehandle watchers.
+
+sub loop_watch_filehandle {
+ my ($self, $handle, $mode) = @_;
+ my $fileno = fileno($handle);
+
+ # Overwriting a pre-existing watcher?
+ if (defined $fileno_watcher[$fileno]->[$mode]) {
+ Gtk::Gdk->input_remove($fileno_watcher[$fileno]->[$mode]);
+ undef $fileno_watcher[$fileno]->[$mode];
+ }
+
+ if (TRACE_FILES) {
+ POE::Kernel::_warn "<fh> watching $handle in mode $mode";
+ }
+
+ # Register the new watcher.
+ $fileno_watcher[$fileno]->[$mode] =
+ Gtk::Gdk->input_add( $fileno,
+ ( ($mode == MODE_RD)
+ ? ( 'read',
+ \&_loop_select_read_callback
+ )
+ : ( ($mode == MODE_WR)
+ ? ( 'write',
+ \&_loop_select_write_callback
+ )
+ : ( 'exception',
+ \&_loop_select_expedite_callback
+ )
+ )
+ ),
+ $fileno
+ );
+}
+
+sub loop_ignore_filehandle {
+ my ($self, $handle, $mode) = @_;
+ my $fileno = fileno($handle);
+
+ if (TRACE_FILES) {
+ POE::Kernel::_warn "<fh> ignoring $handle in mode $mode";
+ }
+
+ # Don't bother removing a select if none was registered.
+ if (defined $fileno_watcher[$fileno]->[$mode]) {
+ Gtk::Gdk->input_remove($fileno_watcher[$fileno]->[$mode]);
+ undef $fileno_watcher[$fileno]->[$mode];
+ }
+}
+
+sub loop_pause_filehandle {
+ my ($self, $handle, $mode) = @_;
+ my $fileno = fileno($handle);
+
+ if (TRACE_FILES) {
+ POE::Kernel::_warn "<fh> pausing $handle in mode $mode";
+ }
+
+ Gtk::Gdk->input_remove($fileno_watcher[$fileno]->[$mode]);
+ undef $fileno_watcher[$fileno]->[$mode];
+}
+
+sub loop_resume_filehandle {
+ my ($self, $handle, $mode) = @_;
+ my $fileno = fileno($handle);
+
+ # Quietly ignore requests to resume unpaused handles.
+ return 1 if defined $fileno_watcher[$fileno]->[$mode];
+
+ if (TRACE_FILES) {
+ POE::Kernel::_warn "<fh> resuming $handle in mode $mode";
+ }
+
+ $fileno_watcher[$fileno]->[$mode] =
+ Gtk::Gdk->input_add( $fileno,
+ ( ($mode == MODE_RD)
+ ? ( 'read',
+ \&_loop_select_read_callback
+ )
+ : ( ($mode == MODE_WR)
+ ? ( 'write',
+ \&_loop_select_write_callback
+ )
+ : ( 'exception',
+ \&_loop_select_expedite_callback
+ )
+ )
+ ),
+ $fileno
+ );
+}
+
+### Callbacks.
+
+# Event callback to dispatch pending events.
+
+my $last_time = time();
+
+sub _loop_event_callback {
+ my $self = $poe_kernel;
+
+ if (TRACE_STATISTICS) {
+ # TODO - I'm pretty sure the startup time will count as an unfair
+ # amount of idleness.
+ #
+ # TODO - Introducing many new time() syscalls. Bleah.
+ $self->_data_stat_add('idle_seconds', time() - $last_time);
+ }
+
+ $self->_data_ev_dispatch_due();
+ $self->_test_if_kernel_is_idle();
+
+ Gtk->timeout_remove($_watcher_timer);
+ undef $_watcher_timer;
+
+ # Register the next timeout if there are events left.
+ if ($self->get_event_count()) {
+ $_watcher_timer = Gtk->idle_add(\&_loop_resume_timer);
+ }
+
+ # And back to Gtk, so we're in idle mode.
+ $last_time = time() if TRACE_STATISTICS;
+
+ # Return false to stop.
+ return 0;
+}
+
+# Filehandle callback to dispatch selects.
+sub _loop_select_read_callback {
+ my $self = $poe_kernel;
+ my ($handle, $fileno, $hash) = @_;
+
+ if (TRACE_FILES) {
+ POE::Kernel::_warn "<fh> got read callback for $handle";
+ }
+
+ $self->_data_handle_enqueue_ready(MODE_RD, $fileno);
+ $self->_test_if_kernel_is_idle();
+
+ # Return false to stop... probably not with this one.
+ return 0;
+}
+
+sub _loop_select_write_callback {
+ my $self = $poe_kernel;
+ my ($handle, $fileno, $hash) = @_;
+
+ if (TRACE_FILES) {
+ POE::Kernel::_warn "<fh> got write callback for $handle";
+ }
+
+ $self->_data_handle_enqueue_ready(MODE_WR, $fileno);
+ $self->_test_if_kernel_is_idle();
+
+ # Return false to stop... probably not with this one.
+ return 0;
+}
+
+sub _loop_select_expedite_callback {
+ my $self = $poe_kernel;
+ my ($handle, $fileno, $hash) = @_;
+
+ if (TRACE_FILES) {
+ POE::Kernel::_warn "<fh> got expedite callback for $handle";
+ }
+
+ $self->_data_handle_enqueue_ready(MODE_EX, $fileno);
+ $self->_test_if_kernel_is_idle();
+
+ # Return false to stop... probably not with this one.
+ return 0;
+}
+
+#------------------------------------------------------------------------------
+# The event loop itself.
+
+sub loop_do_timeslice {
+ die "doing timeslices currently not supported in the Gtk loop";
+}
+
+sub loop_run {
+ unless (defined $_watcher_timer) {
+ $_watcher_timer = Gtk->idle_add(\&_loop_resume_timer);
+ }
+ Gtk->main;
+}
+
+sub loop_halt {
+ Gtk->main_quit();
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+POE::Loop::Gtk - a bridge that allows POE to be driven by Gtk
+
+=head1 SYNOPSIS
+
+See L<POE::Loop>.
+
+=head1 DESCRIPTION
+
+POE::Loop::Gtk implements the interface documented in L<POE::Loop>.
+Therefore it has no documentation of its own. Please see L<POE::Loop>
+for more details.
+
+=head1 SEE ALSO
+
+L<POE>, L<POE::Loop>, L<Gtk>, L<POE::Loop::PerlSignals>
+
+=head1 AUTHORS & LICENSING
+
+Please see L<POE> for more information about authors, contributors,
+and POE's licensing.
+
+=cut
+
+# rocco // vim: ts=2 sw=2 expandtab
+# TODO - Edit.
Added: branches/upstream/libpoe-loop-gtk-perl/current/t/00_info.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libpoe-loop-gtk-perl/current/t/00_info.t?rev=44753&op=file
==============================================================================
--- branches/upstream/libpoe-loop-gtk-perl/current/t/00_info.t (added)
+++ branches/upstream/libpoe-loop-gtk-perl/current/t/00_info.t Fri Sep 25 03:57:00 2009
@@ -1,0 +1,9 @@
+#!/usr/bin/perl
+use strict; use warnings;
+
+use Test::More tests => 1;
+use_ok( 'POE' );
+
+# idea from Test::Harness, thanks!
+diag("Testing POE $POE::VERSION, Perl $], $^X on $^O");
+
More information about the Pkg-perl-cvs-commits
mailing list