# 1:
sub is_connected { return 1 if shift->is_writable }
# 2:
sub is_connected { return shift->is_writable }
# or 3:
sub is_connected {
     return shift->is_writable ? 1 : 0 # or undef, etc.
}