$self->{base} = qq/$self->{principal}/ unless $self->{base};