File Coverage

blib/lib/Linux/Input/Joystick.pm

Criterion	Covered	Total	%
statement	9	20	45.0
branch			n/a
condition	0	3	0.0
subroutine	3	4	75.0
pod	1	1	100.0
total	13	28	46.4

package Linux::Input::Joystick;

use base 'Linux::Input';
use strict;
use warnings;

# class data
Linux::Input::Joystick->event_bytes(8);

# return all pending events
sub poll {
  my $self     = shift;
  my $timeout  = shift || ref($self)->timeout();
  my $selector = $self->selector();
  my @ev;
  while (my ($fh) = $selector->can_read($timeout)) {
    my $buffer;
    my $len = sysread($fh, $buffer, Linux::Input::Joystick->event_bytes);
    my ($time, $value, $type, $number) =
      unpack('LsCC', $buffer);
    my $event = {
      time    => $time,
      type    => $type,
      number  => $number,
      value   => $value,
    };
    push @ev, $event;
  }
  return @ev;
}

1;

__END__