sub min_level{
    sub ($self,$min) = @_;
    $self->{min_level} = $min if defined $min;
    return $self->{min_level};
}

sub max_level{
    sub ($self,$max) = @_;
    $self->{max_level} = $max if defined $max;
    return $self->{max_level};
}