Select Code to Download

sub new {
    my ($thing) = @_ ;
...
    # make sure to return true-evaluating or at least non-undef value
    return 1;
}

$O->foo() or die "could not blabla: ".$O->error();

sub bar {
    my ($self) = @_;
...

$O->bar() or die "could not blabla: ".$O->error();
# "could not blabla: bar failed to rhubarb: foo: could not do thisandt
+hat"