my $run=1;
$obj->climb_up(
  code_find=>sub{
    my $obj=shift;

    $run=0 unless('was auch immer');

    return qw(irgend ein array);
  },
  code_test => sub{
    my $obj=shift;
    my @values=@_;

    return $run;
  }
);