sub hallo {
        my( $self, $str, $ref ) = @_;

        $self->attr1( $ref->{attr1} ) if exists $ref->{attr1};
        $self->attr2( $ref->{attr2} ) if exists $ref->{attr2};

        return sprintf '%s : %s - %s', $str, $self->attr1, $self->attr2;
 
    }
}