$obj->get_stuff_a() || $obj->try_a_backup || die $obj->error;
$obj->get_stuff_b() || $obj->try_b_backup || die $obj->error;
$obj->get_stuff_c() || $obj->try_c_backup || die $obj->error;
my @err = $obj->error;
if (@err) {
   warn 'Had to use one or more backup sources because:'."\t\n"
       .join("\t\n", @err)."\n";
}