sub bar { my ($self) = @_; foo() or return raiseError("bar failed to rhubarb: ".$self->error()); return 1; } # ... $O->bar() or die "could not blabla: ".$O->error(); # "could not blabla: bar failed to rhubarb: foo: could not do thisandthat"