| … | |
… | |
| 145 | } |
145 | } |
| 146 | |
146 | |
| 147 | sub manage { |
147 | sub manage { |
| 148 | my (undef, $con) = @_; |
148 | my (undef, $con) = @_; |
| 149 | |
149 | |
| 150 | $con->set_watch_callbacks (\&io_on, \&watch_off, \&io_toggle) |
150 | $con->set_watch_callbacks (\&io_on, \&watch_off, \&io_toggle); |
| 151 | if $con->can ("set_watch_callbacks"); |
151 | # if $con->can ("set_watch_callbacks"); |
| 152 | |
152 | |
| 153 | $con->set_timeout_callbacks (\&timeout_on, \&watch_off, \&timeout_toggle) |
153 | $con->set_timeout_callbacks (\&timeout_on, \&watch_off, \&timeout_toggle); |
| 154 | if $con->can ("set_timeout_callbacks"); |
154 | # if $con->can ("set_timeout_callbacks"); |
| 155 | } |
155 | } |
| 156 | |
156 | |
| 157 | =head1 SEE ALSO |
157 | =head1 SEE ALSO |
| 158 | |
158 | |
| 159 | L<AnyEvent>, L<Net::DBus>. |
159 | L<AnyEvent>, L<Net::DBus>. |
