sub new {
    my( $conf, %opts ) = @_;
    my $class = ref($conf) || $conf;	# subclass boilerplate.
    $conf = {}
         if  ! ref $conf;
    my $self = {
        user => $opts{user} // $conf->{user} // '',
    };
    return bless $self, $class;
}