sub add_line {
  my ($self, $options) = @_;

  return unless $self->slide;

  $options = {} unless ref $options eq 'HASH';

  my $new_line = $self->slide->Shapes->AddLine($options->{x1}, $options->{y1}, $options->{x2}, $options->{y2});

  return $new_line;
}