File Coverage

blib/lib/System/Info/Solaris.pm

Criterion	Covered	Total	%
statement	9	43	20.9
branch	0	12	0.0
condition	0	3	0.0
subroutine	3	5	60.0
pod	2	2	100.0
total	14	65	21.5

package System::Info::Solaris;

use strict;
use warnings;

use base "System::Info::Base";

our $VERSION = "0.050";

=head1 NAME

System::Info::Solaris - Object for specific Solaris/Sun-os info.

=head1 DESCRIPTION

=head2 $si->prepare_sysinfo

Use os-specific tools to find out more about the system.

=cut

sub prepare_sysinfo {
    my $self = shift;
    $self->SUPER::prepare_sysinfo;
    $self->prepare_os;

    local $ENV{PATH} = "/usr/sbin:$ENV{PATH}";

    my @psrinfo = `psrinfo -v`;
    my ($psrinfo) = grep m/the .* operates .* [gm]hz/ix => @psrinfo;
    my ($type, $speed, $magnitude) =
	$psrinfo =~ m/the (.+) processor.*at (.+?)\s*([GM]hz)/i;
    $type =~ s/(v9)$/ $1 ? "64" : ""/e;

    my $cpu = $self->_cpu;

    if (-d "/usr/platform") { # Solaris but not OSF/1.
	chomp (my $platform = `uname -i`);
	my $pfpath = "/usr/platform/$platform/sbin/prtdiag";
	if (-x "$pfpath") { # Not on Solaris-x86
	    my $prtdiag = `$pfpath`;
	    ($cpu) = $prtdiag =~ m/^System .+\(([^\s\)]+)/;
	    unless ($cpu) {
		my ($cpu_line) = grep m/\s+on-?line\s+/i => split /\n/ => $prtdiag;
		($cpu = (split " " => $cpu_line)[4]) =~ s/.*,//;
		}
	    $cpu .= " ($speed$magnitude)";
	    }
	else {
	    $cpu .= " ($speed$magnitude)";
	    }
	}
    elsif (-x "/usr/sbin/sizer") { # OSF/1.
	$cpu = $type;
	chomp ($type = `sizer -implver`);
	}

    my $ncpu = grep m/on-?line/ => `psrinfo`;

    $self->{__cpu_type}  = $type;
    $self->{__cpu}       = $cpu;
    $self->{__cpu_count} = $ncpu;
    return $self;
    } # prepare_sysinfo

=head2 $si->prepare_os

Use os-specific tools to find out more about the operating system.

=cut

sub prepare_os {
    my $self = shift;

    my ($osn, $osv) = ($self->_osname, $self->_osvers);
    if ($^O =~ /solaris|sunos/i && $osv > 5) {
	$osn = "Solaris";
	$osv = "2." . (split m/\./ => $osv, 2)[1];
	}
    $self->{__os} = join " - ", $osn, $osv;
    } # prepare_os

1;

__END__