poe session using moosex::poe

gistfile1.pl

package Foo::Session;
 
use strict;
use warnings;
 
use MooseX::POE;
 
sub START {
    my $self = shift;
    # ...
}
 
event event1 => sub {
    my $self = shift;
    #...
};
 
# ...