package Kprocess;
sub new {
    my ($class, $fname) = @_;
    my $self = {
    lib => undef
    };
    bless $self, $class;

    my $lib     = Kprocess::Container->new();
    my $libfile = Kprocess::File->new($fname);
    $lib->read($libfile);

    ($self->{lib}) = ($lib->get_list("library"));

    return $self;
}


sub get_value {
    my ($self, $keyword, $default) = @_;
    return $self->{lib}->get_value($keyword, $default);
}