| … | |
… | |
| 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 | }, |
