package Max;

sub new {
    my($class) = shift;

    bless {
        "max" => 0
    }, $class;
}

sub getMax {
    my($self) = shift;

    return $self->{"max"};
}

sub newValue {
    my($self) = shift;
    my($value) = shift;

    if($self->{"max"} < $value) {
        $self->{"max"} = $value;
    }
}

1;