Test::Smoke::SysInfo - Factory for system specific information objects
use Test::Smoke::SysInfo; my $si = Test::Smoke::SysInfo->new; printf "Hostname: %s\n", $si->host; printf "Number of CPU's: %s\n", $si->ncpu; printf "Processor type: %s\n", $si->cpu_type; # short printf "Processor description: %s\n", $si->cpu; # long printf "OS and version: %s\n", $si->os;
use Test::Smoke::SysInfo qw( sysinfo ); printf "[%s]\n", sysinfo();
$ perl -MTest::Smoke::SysInfo=tsuname -le print+tsuname
Sometimes one wants a more eleborate description of the system one is smoking.
Factory method, with fallback to the information in
sysinfo() returns a string with
This class gathers most of the
uname(1) info, make a comparable version. Takes almost the same arguments:
a for all (can be omitted) n for nodename s for os name and version m for cpu name c for cpu count p for cpu_type
(c) 2002-2013, Abe Timmerman <firstname.lastname@example.org> All rights reserved.
With contributions from Jarkko Hietaniemi, Merijn Brand, Campo Weijerman, Alan Burlison, Allen Smith, Alain Barbet, Dominic Dunlop, Rich Rauenzahn, David Cantrell.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.