You could have written it this way:

  if (defined($id)) {
    $self->{_id} = $id;
  }
[download]

... but this way's shorter. Perl is full of little "shortcuts" like that.