use Sys::Info; my $info = Sys::Info->new; my $device = $info->device( $device_id ); my @available = $info->device('available');
use Sys::Info::Device; my $device = Sys::Info::Device->new( $device_id ); my @available = Sys::Info::Device->new('available');
This is an interface to the available devices such as the
Sys::Info::Device - Information about devices
Returns an object to the related device or dies if
DEVICE_ID is bogus or false.
DEVICE_ID has the value of
available, then the names of the available devices will be returned.
Burak Gursoy <firstname.lastname@example.org>
This software is copyright (c) 2006 by Burak Gursoy.
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.