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

[eriam at dev.catalyst.perl.org]

Author: eriam
Date: 2007-05-23 20:37:50 +0100 (Wed, 23 May 2007)
New Revision: 6427

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

Modified: trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm
===================================================================
--- trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-05-23 19:08:22 UTC (rev 6426)
+++ trunk/Catalyst-Engine-Wx/lib/Catalyst/Engine/Wx.pm	2007-05-23 19:37:50 UTC (rev 6427)
@@ -13,12 +13,20 @@
 use IO::String;
 use URI;
 
+our $VERSION = "0.01";
+
 my $uri_proto = URI->new();
 my $app;
    
 use base 'Catalyst::Engine';
 use Errno 'EWOULDBLOCK';
 
+
+=head2 run
+
+Creates the Catalyst POE session that will receive and deals with events.
+
+=cut
 sub run {
    my ( $self, $class, $options ) = @_;
    
@@ -65,12 +73,22 @@
       controller  => $self->{bootstrap},
    });
 }
-            
+
+=head2 EVENT_REQUEST
+
+Receive and event from the Wx views and send it in the Catalyst flow.
+
+=cut
 sub EVENT_REQUEST {
    my ($self, $kernel, $heap, $session, $request) = @_[OBJECT, KERNEL, HEAP, SESSION, ARG0];
    $heap->{'class'}->handle_request($request);
 }
 
+=head2 prepare
+
+Transform an event with parameters into a Catalyst request.
+
+=cut
 sub prepare {
    my ( $self, $c, $request ) = @_;