# Model Specification for Finance::Shares::Model version 1.00
#
# Simulating the 'less_than' module using a test.

lines => [
    result => {
	function => 'mark',
	gtype    => 'logic',
	style    => {
	    line => {
		width => 2,
	    },
	},
    },
],

code => <<'END'
    if (defined $close) {
	if ($close > $open) {
	    mark('result', 100);
	} else {
	    mark('result', 0);
	}
    }
END
,

sample => {
    code => 'default',
},

