File Coverage

blib/lib/Math/LP/Constraint.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Math::LP::Constraint;
use strict;
use vars qw($LE $GE $EQ %SYMBOL @EXPORT %EXPORT_TAGS @EXPORT_OK);
use Math::LP::LinearCombination;
use Math::LP::Solve;
use Exporter;
use base qw(Math::LP::Object Exporter);
use fields (
    'lhs',         # Math::LP::LinearCombination at left hand side
    'rhs',         # constant number at right hand side
    'type',        # $LE, $GE or $EQ
    'name',        # name of the constraint
    'row_index',   # row index of the constraint in the LP
    'slack',       # slack found after solving the LP
    'dual_value',  # dual value for the constraint after solving the LP
);

# the constraint types are exportable
@EXPORT = qw();
%EXPORT_TAGS = (types => [qw($LE $GE $EQ)]);
@EXPORT_OK = qw($LE $GE $EQ);

BEGIN {
    # constraint types
    *LE = \$Math::LP::Solve::LE;
    *GE = \$Math::LP::Solve::GE;
    *EQ = \$Math::LP::Solve::EQ;

    # constraint symbols
    %SYMBOL = ($LE => '<=', $GE => '>=', $EQ => '=');
}

sub initialize {
    my Math::LP::Constraint $this = shift;
    defined($this->{lhs}) or
	$this->croak("No lhs given for Math::LP::Constraint");
    $this->{rhs} ||= 0.0;
    defined($this->{type}) or
	$this->croak("No type given for Math::LP::Constraint");
    $this->{type} == $LE or $this->{type} == $GE or $this->{type} == $EQ
	or $this->croak("No valid type given for Math::LP::Constraint");
}

sub stringify {
    my Math::LP::Constraint $this = shift;
    my $str = '';
    $str .= $this->{lhs}->stringify() . ' ' . $this->symbol() . ' ' . $this->{rhs};
    $str .= ' [' . $this->{name} . ']' if defined $this->{name};
    return $str;
}

sub symbol {
    my Math::LP::Constraint $this = shift;
    my $type = $this->{type};
    return $SYMBOL{$type};
}

1;

__END__