alias_set

[Jon Oringer]

This is a simple question, yet I have no idea why it isn't working.
Since I set the alias, why does _stop get reached?
Since I alias_set, it should still wait for things to do - without
exiting.
It should be deamonized, no?


#!/usr/bin/perl -w
use POE;

sub main_start {
        my ($kernel, $heap, $session) = @_[KERNEL, HEAP, SESSION];
        print "setting alias...\n";
        $kernel->alias_set("maaasdfsdin");
}

sub main_stop {
        print "in _stop\n";
}

POE::Session->create(
        inline_states => {
            _start => \&main_start,
            _stop  => \&main_stop,
        },
);

$poe_kernel->run();