sub my_sub {
   my $r_result = shift;
   $$r_result = whatever();
   was_there_an_error() ? 0 : 1 ;
}