package Max;

sub new {
        my ($class) = shift;
        bless {
                "score" => 0,
        }, $class;
}

sub newValue {
	my($self) = shift;
	my($val) = shift;
	if ($val > $self->{"score"} ) {
		$self->{"score"} = $val;
		print "Changed score to $val\n";
	}
}

sub getMax {
	my($self) = shift;
	return $self->{"score"};
}

1;
