… | |
… | |
582 | |
582 | |
583 | sub urxvt::destroy_hook(&) { |
583 | sub urxvt::destroy_hook(&) { |
584 | bless \shift, urxvt::destroy_hook:: |
584 | bless \shift, urxvt::destroy_hook:: |
585 | } |
585 | } |
586 | |
586 | |
587 | # urxvt::anyevent |
|
|
588 | |
|
|
589 | package urxvt::anyevent; |
587 | package urxvt::anyevent; |
|
|
588 | |
|
|
589 | =head2 The C<urxvt::anyevent> Class |
|
|
590 | |
|
|
591 | The sole purpose of this class is to deliver an interface to the |
|
|
592 | C<AnyEvent> module - any module using it will work inside urxvt without |
|
|
593 | further work. The only exception is that you cannot wait on condition |
|
|
594 | variables, but non-blocking condvar use is ok. What this means is that you |
|
|
595 | cannot use blocking APIs, but the non-blocking variant should work. |
|
|
596 | |
|
|
597 | =cut |
590 | |
598 | |
591 | our $VERSION = 1; |
599 | our $VERSION = 1; |
592 | |
600 | |
593 | $INC{"urxvt/anyevent.pm"} = 1; # mark us as there |
601 | $INC{"urxvt/anyevent.pm"} = 1; # mark us as there |
594 | push @AnyEvent::REGISTRY, [urxvt => urxvt::anyevent::]; |
602 | push @AnyEvent::REGISTRY, [urxvt => urxvt::anyevent::]; |