File Coverage

blib/lib/Math/LP/Variable.pm

Criterion	Covered	Total	%
statement	12	17	70.5
branch	0	4	0.0
condition	0	2	0.0
subroutine	4	5	80.0
pod	0	1	0.0
total	16	29	55.1

package Math::LP::Variable;
use strict;
#use Math::LP::Object;
use Math::SimpleVariable;
use base qw(Math::SimpleVariable);
use fields(
    'is_int',      # flags whether it is an integer variable, defaults to false
    'upper_bound', # defaults to +infinity
    'lower_bound', # defaults to 0, as is the convention in linear programming
    'col_index',   # column index in an LP, used by the Math::LP functions
);

sub initialize {
    my Math::LP::Variable $this = shift;
    $this->{is_int} ||= 0;
    $this->{upper_bound} = $Math::LP::Solve::DEF_INFINITE
	unless defined($this->{upper_bound});
    $this->{lower_bound} = 0
	unless defined($this->{lower_bound});
    $this->SUPER::initialize();
}

1;

__END__