File Coverage

blib/lib/Proc/Info/Environment.pm

Criterion	Covered	Total	%
statement	16	23	69.5
branch	2	6	33.3
condition			n/a
subroutine	4	6	66.6
pod	0	4	0.0
total	22	39	56.4

###########################################
package Proc::Info::Environment;
###########################################
use strict;
use warnings;

our $VERSION = "0.01";

our %OS_MAP = (
    "linux" => "Linux",
);

###########################################
sub new {
###########################################
    my($class, %options) = @_;

    my $self = {
        %options,
    };

    my $os = $OS_MAP{ $^O };

    if(! defined $os ) {
        die "OS $^O not supported";
    }

    my $subclass = "Proc::Info::Environment::$os";
    eval "require $subclass";

    bless $self, $subclass;

    return $self;
}

###########################################
sub os_not_supported_error_message {
###########################################
    return "OS $^O not supported (only " .
           join(', ', sort keys %OS_MAP) .
           " so far)";
}

###########################################
sub os_supported {
###########################################
    if(exists $OS_MAP{ $^O } ) {
        return 1;
    }

    return 0;
}

###########################################
sub error {
###########################################
    my($self, $error) = @_;

    if(defined $error) {
        $self->{error} = $error;
    }

    return $self->{error};
}

1;

__END__