[Catalyst-commits] r6344 - trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine

eriam at dev.catalyst.perl.org eriam at dev.catalyst.perl.org
Sun Apr 29 15:39:14 GMT 2007


Author: eriam
Date: 2007-04-29 15:39:12 +0100 (Sun, 29 Apr 2007)
New Revision: 6344

Modified:
   trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
Log:
pod

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-04-29 01:25:02 UTC (rev 6343)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-04-29 14:39:12 UTC (rev 6344)
@@ -17,36 +17,6 @@
 use base 'Catalyst::Engine';
 use Errno 'EWOULDBLOCK';
 
-sub DEBUG () { $ENV{CATALYST_POE_DEBUG} || 0 }
-sub BENCH () { $ENV{CATALYST_POE_BENCH} || 0 }
-
-=head1 NAME
-
-Catalyst::Engine::Wx - Catalyst wxPerl Engine with POE loop
-
-=head1 SYNOPSIS
-
-A script using the Catalyst::Engine::Wx module might look like:
-
-    #!/usr/bin/perl -w
-
-    BEGIN {  $ENV{CATALYST_ENGINE} = 'Wx' }
-
-    use strict;
-    use lib '/path/to/MyApp/lib';
-    use MyApp;
-
-    MyApp->run;
-
-=head1 DESCRIPTION
-
-This is the Catalyst engine specialized for building non-blocking desktop
-applications out of the Catalyst framework.
-
-=head1 METHODS
-
-=cut
-
 sub run {
    my ( $self, $class, $port, $host, $options ) = @_;
    
@@ -55,8 +25,8 @@
    POE::Session->create(
       object_states => [
          $self => [ 
-         'EVENT_REQUEST',
-         '_PULSE',
+            'EVENT_REQUEST',
+            '_PULSE',
          ],
       ],
       inline_states => {
@@ -115,6 +85,29 @@
    $c->stash->{_parent} = $request->{'parent'};
 }
 
+=head1 NAME
+
+Catalyst::Engine::Wx - Catalyst wxPerl Engine
+
+=head1 SYNOPSIS
+
+A script using the Catalyst::Engine::Wx module might look like:
+
+    #!/usr/bin/perl -w
+
+    BEGIN {  $ENV{CATALYST_ENGINE} = 'Wx' }
+
+    use strict;
+    use lib '/path/to/MyApp/lib';
+    use MyApp;
+
+    MyApp->run;
+
+=head1 DESCRIPTION
+
+This is the Catalyst engine specialized for building non-blocking and
+multi-platforms desktop applications with the Catalyst framework.
+
 =head1 AUTHORS
 
 Eriam Schaffter, C<eriam at cpan.org>




More information about the Catalyst-commits mailing list