sub triggered {
my( $self ) = @_ ;
-
ok( 1, 'plain - event triggered' ) ;
}
ok( ref $event, 'signal - event created' ) ;
- $self->{'sig_event'} = $event ;
-
kill 'INT', $$ ;
-#print "kill INT\n" ;
+ $self->{'sig_event'} = $event ;
Stem::Event::start_loop() ;
ok( 1, 'signal - event triggered' ) ;
$self->{'sig_event'}->cancel() ;
+
Stem::Event::stop_loop() ;
}