for my $key ( keys %{ $ref || {} } ) {
    my $sub = $self->can( $key );
    eval{ $self->$sub( $ref->{$key} ) } if $sub;
}