Help for this page

Select Code to Download

Select or download this

# --------------------------------------------------------------------
+----------
#    OBJECT CREATION
...
    my( $self, $attribute, $value ) = @_;
    $self->{$attribute} = $value;
}

Select or download this

sub set_stock
{
...
        $supp->{$reference} = $stockLevel; 
    }
}