POE子程序传参@_[ ARG0 .. $#_ ]

#!/usr/bin/perl
#use Acme::PerlTidy;
use POE;
POE::Session->create(
    inline_states => {
        _start => \&Start,
        _Say => \&_Say,

    },
);
POE::Kernel->run;

sub Start {
    my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];
    my @a = qw(字符 2);

    #向_Say()传递参数
    $kernel->yield( _Say => @a );
}

sub _Say {
    my ( $kernel, $heap ) = @_[ KERNEL, HEAP ];

    #取得向_Say()传递的参数
    my ( $text, $count ) = @_[ ARG0 .. $#_ ];
    print "参数1：$text", "\n";
    print "参数2：$count", "\n";
}