The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

Linux::Input::Info - get information about /dev/input/event* devices under Linux

SYNOPSIS

        use Linux::Input::Info qw(:all); # optionally export EV_* constants

    for (0..32) {
        my $i = Linux::Input::Info->new($_);
        printf "/dev/input/event%d\n", $_;

        printf "\tbustype  : %s\n",   $i->bustype;
        printf "\tvendor   : 0x%x\n", $i->vendor;
        printf "\tproduct  : 0x%x\n", $i->product;
        printf "\tversion  : %d\n",   $i->version;
        printf "\tname     : %s\n",   $i->name;
        printf "\tuniq     : %s\n",   $i->uniq;
        printf "\tphys     : %s\n",   $i->phys;
        printf "\tbits ev  :";
        printf " %s", $i->ev_name($_) for $i->bits;
        printf "\n";        
    }

DESCRIPTION

METHODS

new <event number>

Returns undef if the device does not exist.

bustype

get the bus type

vendor

get vendor id

product

get the product id

version

get driver version

name

get device name

uniq

get unique identifier

phys

get physical location

bits

get event bits

ev_name

map event bit to event name

BUGS

Make sure it doesn't leak memory.

AUTHOR

Simon Wistow <simon@thegestalt.org>

COPYRIGHT

Copyright 2005, Simon Wistow

SEE ALSO

Linux::Input

Gerd Knorr's input utils - http://dl.bytesex.org/cvs-snapshots/