eval {
  $some->big->chain->of->calls
}
die $@ if($@ 
  && $@ =~ /\^Can't call method .* on an undefined/)