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});

  $new_line->{Line}{ForeColor}{RGB}=RGB($options->{forecolor}) if(defined $options->{forecolor});

  $new_line->{Line}{Weight}=$options->{weight} if(defined $options->{weight});

  $new_line->{Line}{Pattern}=$options->{pattern} if(defined $options->{pattern});

  return $new_line;
}