File Coverage

blib/lib/Sys/Info/Driver/Unknown/OS.pm

Criterion	Covered	Total	%
statement	57	58	98.2
branch	5	8	62.5
condition	1	2	50.0
subroutine	16	16	100.0
pod	9	9	100.0
total	88	93	94.6

package Sys::Info::Driver::Unknown::OS;
$Sys::Info::Driver::Unknown::OS::VERSION = '0.79';
use strict;
use warnings;

use POSIX ();
use Sys::Info::Constants qw( :unknown );

# So, we don't support $^O yet, but we can try to emulate some features

BEGIN {
    *is_root     = *uptime
                 = *tick_count
                 = sub { 0 }
                 ;
    *domain_name = *edition
                 = *logon_server
                 = sub {}
                 ;
}

sub meta {
    my $self = shift;
    my %info;

    $info{manufacturer}              = undef;
    $info{build_type}                = undef;
    $info{owner}                     = undef;
    $info{organization}              = undef;
    $info{product_id}                = undef;
    $info{install_date}              = undef;
    $info{boot_device}               = undef;
    $info{physical_memory_total}     = undef;
    $info{physical_memory_available} = undef;
    $info{page_file_total}           = undef;
    $info{page_file_available}       = undef;
    # windows specific
    $info{windows_dir}               = undef;
    $info{system_dir}                = undef;
    $info{system_manufacturer}       = undef;
    $info{system_model}              = undef;
    $info{system_type}               = undef;
    $info{page_file_path}            = undef;

    return %info;
}

sub tz {
    my $self = shift;
    return exists $ENV{TZ}
         ? $ENV{TZ}
         : do {
               require POSIX;
               POSIX::strftime('%Z', localtime);
           };
}

sub fs {
    my $self = shift;
    return(
        unknown => 1,
    );
}

sub name {
    my($self, @args) = @_;
    my %opt   = @args % 2 ? () : @args;
    my $uname = $self->uname;
    my $rv    = $opt{long} ? join(q{ }, $uname->{sysname}, $uname->{release})
              :              $uname->{sysname}
              ;
    return $rv;
}

sub version { return shift->uname->{release} }

sub build {
    my $build = shift->uname->{version} || return;
    if ( $build =~ UN_RE_BUILD ) {
        return $1;
    }
    return $build;
}

sub node_name { return shift->uname->{nodename} }

sub login_name {
    my $name;
    my $eok = eval { $name = getlogin };
    return $name;
}

sub bitness {
    my $self = shift;
    return;
}

1;

__END__