… | |
… | |
248 | } |
248 | } |
249 | |
249 | |
250 | sub timer { |
250 | sub timer { |
251 | my ($class, %arg) = @_; |
251 | my ($class, %arg) = @_; |
252 | my $after = delete $arg{after}; |
252 | my $after = delete $arg{after}; |
253 | my $cb = delete $arg{cb}; |
253 | my $cb = delete $arg{cb}; |
254 | my $session = POE::Session->create ( |
254 | my $session = POE::Session->create ( |
255 | inline_states => { |
255 | inline_states => { |
256 | _start => sub { |
256 | _start => sub { |
257 | $_[KERNEL]->delay_set (timeout => $after); |
257 | $_[KERNEL]->delay_set (timeout => $after); |
258 | }, |
258 | }, |