1 | #! perl | 1 | #! perl |
---|---|---|---|
2 | |||
3 | # this creates a simple clock using the overlay box. it is not very useful, because | ||
4 | # it makes the iso14755 mode almost useles as its box gets destroyed every second. | ||
2 | 5 | ||
3 | use POSIX (); | 6 | use POSIX (); |
4 | 7 | ||
5 | sub on_init { | 8 | sub on_init { |
6 | my ($self) = @_; | 9 | my ($self) = @_; |
– | Removed lines |
+ | Added lines |
< | Changed lines |
> | Changed lines |