AIX-SysInfo
view release on metacpan or search on metacpan
Makefile.PL view on Meta::CPAN
use ExtUtils::MakeMaker;
use Test::More;
die "FATAL ERROR: Can only run on AIX" unless ( $^O eq 'aix' );
WriteMakefile(
'NAME' => 'AIX::SysInfo',
'VERSION_FROM' => 'SysInfo.pm',
'AUTHOR' => 'Sergey Leonovich <sleonov@cpan.org>',
);
t/get_sysinfo.t view on Meta::CPAN
#!/usr/bin/perl
# Runs tests to make sure sysinfo hash values are all defined!
use warnings;
use strict;
use Test::More tests => 14; # currently 14 keys are populated
use AIX::SysInfo;
my %hash = get_sysinfo();
my @items = qw/ hostname
serial_num
num_procs
total_ram
total_swap
aix_version
model_type
( run in 0.950 second using v1.01-cache-2.11-cpan-4d50c553e7e )