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