From f78050636243c15121b76252bcecc985b47609bf Mon Sep 17 00:00:00 2001
From: =?utf8?q?J=C3=A9r=C3=B4me=20Quelin?= <jquelin@gmail.com>
Date: Mon, 19 Jan 2009 18:09:48 +0100
Subject: [PATCH] cleaner _start event handler

in particular, setting a poe alias to communicate
---
 lib/App/CPAN2Pkg/Curses.pm | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

diff --git a/lib/App/CPAN2Pkg/Curses.pm b/lib/App/CPAN2Pkg/Curses.pm
index 9bf6580..818c398 100644
--- a/lib/App/CPAN2Pkg/Curses.pm
+++ b/lib/App/CPAN2Pkg/Curses.pm
@@ -12,6 +12,8 @@ package App::CPAN2Pkg::Curses;
 use App::CPAN2Pkg;
 use Curses;
 use Curses::UI::POE;
+use POE;
+
 use base qw{ Curses::UI::POE };
 
 #--
@@ -23,6 +25,7 @@ sub spawn {
     my $cui = $class->new(
         -color_support => 1,
         inline_states  => {
+            # inline states
             _start => \&_start,
             _stop  => sub { warn "_stop"; },
         },
@@ -30,16 +33,23 @@ sub spawn {
     return $cui;
 }
 
+
+#--
+# SUBS
+
+#-- poe inline states
+
 sub _start {
-    warn "_start";
-    my ($cui) = @_[HEAP];
-    _build_gui($cui);
-    #$_[HEAP]->dialog("Hello!");
+    my ($k, $self) = @_[KERNEL, HEAP];
+
+    $k->alias_set('ui');
+    $self->_build_gui;
 }
 
 #
 
 
+
 =pod
 
 
@@ -68,6 +78,11 @@ n = new, d = delete, enter = jump to
 
 =cut
 
+#--
+# METHODS
+
+# -- private methods
+
 my $title;
 sub _build_gui {
     my ($self) = @_;
-- 
2.11.4.GIT