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