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;
 
    }
}

use strict;
use warnings;
use 5.010;
use Data::Dumper;

# Modify Attribute
my $mod_att = sub{
    my $self = shift;
    my $ref = shift;
    $self->{att1} = $ref->{att1};
    $self->{att2} = $ref->{att2};
};

# vereinfachter Konstruktor
my $m = bless{
    mod_att => $mod_att,
    att1 => 8,
    att2 => 'c'
}, __PACKAGE__;

sub hallo{
    my $self = shift;
    my $str  = shift;
    my $ref  = shift;

    $self->{mod_att}->($self, $ref) if $ref;    

    return sprintf "%s : %s - %s", $str, $self->{att1}, $self->{att2};
}

say $m->hallo('Welt'), "\n", $m->hallo('Welt', {att1 => 9, att2 => 'd'}), "\n", Dumper $m;

Welt : 8 - c
Welt : 9 - d
$VAR1 = bless( {
                 'att1' => 9,
                 'att2' => 'd',
                 'mod_att' => sub { "DUMMY" }
               }, 'main' );