- $pod->callback(ZOOM::Event::CONNECT, \&connected);
- $pod->callback("exception", \¬_connected);
- my $err = $pod->wait($irspy);
-
- return 0;
+ $conn->irspy_connect(undef, {},
+ ZOOM::Event::CONNECT, \&connected,
+ exception => \¬_connected);