my $break=0;
$obj->climb_up(
  code_test => sub{
    my $obj=shift;

    return 1 if('was auch immer');
    return 0; # abbruch
  }
);