| … | |
… | |
| 97 | package Async::Interrupt; |
97 | package Async::Interrupt; |
| 98 | |
98 | |
| 99 | use common::sense; |
99 | use common::sense; |
| 100 | |
100 | |
| 101 | BEGIN { |
101 | BEGIN { |
|
|
102 | # the next line forces initialisation of internal |
|
|
103 | # signal handling # variables |
|
|
104 | $SIG{KILL} = sub { }; |
|
|
105 | |
| 102 | our $VERSION = '0.041'; |
106 | our $VERSION = '0.041'; |
| 103 | |
107 | |
| 104 | require XSLoader; |
108 | require XSLoader; |
| 105 | XSLoader::load Async::Interrupt::, $VERSION; |
109 | XSLoader::load ("Async::Interrupt", $VERSION); |
| 106 | } |
110 | } |
| 107 | |
111 | |
| 108 | our $DIED = sub { warn "$@" }; |
112 | our $DIED = sub { warn "$@" }; |
| 109 | |
113 | |
| 110 | =item $async = new Async::Interrupt key => value... |
114 | =item $async = new Async::Interrupt key => value... |
