[Perl]DateTime::Event::Cron问题

huhuegg

最近看POE的cron时看到示例代码如下

1. 
   
2. $sched->add(
   
3.     $s2=>track=>DateTime::Event::Random->new(
   
4.         seconds=>10,
   
5.         start=>DateTime->now,
   
6.      )->iterator,
   
7.     'TEST_ARG'
   

复制代码

请教如何在DateTime::Event::Cron里也能够添加TEST_ARG呢？
DateTime::Event::Cron->from_cron(cron=>'* * * * *')->iterator

huhuegg

看了Cron.pm发现正确答案
$s2=>track=>DateTime::Event::Cron->from_cron('* * * * *')->iterator(
    span=>DateTime::Span->from_datetimes(
        start=>DateTime->now,
        end=>DateTime::Infinite::Future->new
    )
),
@args