Help for this page

Select Code to Download


  1. or download this
      $mux->loop(sub {
    my ($rdready, $wrready) = @_;
    &check_sigs();
    $mux->endloop if $prop->{_HUP};
  });
  2. or download this
      $mux->loop(sub {
    my ($rdready, $wrready) = @_;
...
    $self->inner_loop_hook;    # user customizable hook
    $mux->endloop if $prop->{_HUP};
  });
  3. or download this
    $self->inner_loop_hook;    # user customizable hook
  4. or download this
    sub inner_loop_hook {
  print "Dude! " , time , "\n";
}
  5. or download this
    use Time::HiRes qw( setitimer getitimer
                ITIMER_REAL ITIMER_VIRTUAL ITIMER_PROF );
setitimer(ITIMER_REAL, 3, 1);
$SIG{ALRM} = sub { return };