sub set {
    my ($self, $state,$set_by) = @_;