sub get_foo {
    my $self = shift;
    return $self->{'foo'} ||= do {
        # expensive operation;
        return $result;
    }
}