'eval' as a control structure

check-and-chdir.pl

sub some_func {
  my $ctx = $_[0];
  return undef if ( !$ctx->{wrkdir} or !-d ctx->{wrkdir} );
  
  my $prevdir = getcwd();
  chdir $ctx->{wrkdir};
  
  my $status;
  
  $status = f1($c);
  if ($status) {
    chdir $prevdir;
    return $status;
  }
  
  $status = f3($c);
  if ($status) {
    chdir $prevdir;
    return $status;
  }
  
  $status = f5($c);
  if ($status) { # Pednantic, yes
    chdir $prevdir;
    return $status;
  }
  
  # If we are here, we are good
  chdir $prevdir;
  return $status;
}

eval-as-ctrl.pl

sub some_func {
  my $ctx = $_[0];
  return undef if ( !$ctx->{wrkdir} or !-d ctx->{wrkdir} );

  my $prevdir = getcwd();
  chdir $ctx->{wrkdir};
  
  my $status;
  eval {
    $status = f1($c);
    die if $status;
    $status = f3($c);
    die if $status;
    $status = f5($c);
    die if $status; #Pedantic, yes
  };
  
  chdir $prevdir;
  return $status;
}

goto.pl

sub some_func {
  my $ctx = $_[0];
  return undef if ( !$ctx->{wrkdir} or !-d ctx->{wrkdir} );

  my $prevdir = getcwd();
  chdir $ctx->{wrkdir};
  
  my $status;
  $status = f1($c);
  goto ONE_EXIT if $status;
  $status = f3($c);
  goto ONE_EXIT if $status;
  $status = f5($c);
  goto ONE_EXIT if $status; # Pedantic, yes
ONE_EXIT:  
  chdir $prevdir;
  return $status;
}

nested-ifs.pl

sub some_func {
  my $ctx = $_[0];
  return undef if ( !$ctx->{wrkdir} or !-d ctx->{wrkdir} );
  
  my $prevdir = getcwd();
  chdir $ctx->{wrkdir};
  
  my $status;
  
  $status = f1($c);
  if ($status==0) {
    $status = f3($c);
    if ($status==0) {
      $status = f5($c);
    }
  }

  chdir $prevdir;
  return $status;
}
  
  # If we are here, we are good
  chdir $prevdir;
  return $status;
}