| … | … | ||
|---|---|---|---|
| 88 | sub one_event { | 88 | sub one_event { |
| 89 | $mainloop->iteration (1); | 89 | $mainloop->iteration (1); |
| 90 | } | 90 | } |
| 91 | 91 | ||
| 92 | sub loop { | 92 | sub loop { |
| 93 | $mainloop->run; | 93 | $mainloop->iteration (1) while 1; # hackish, but w ehave no mainloop |
| 94 | } | 94 | } |
| 95 | 95 | ||
| 96 | 1; | 96 | 1; |
| 97 | 97 | ||
| 98 | =head1 SEE ALSO | 98 | =head1 SEE ALSO |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |