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

  return unless $self->slide;

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

  my $new_poly=$self->slide->Shapes->AddPolyline($options->{points});

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

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

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

  if(defined $options->{fillcolor})
  {
    $new_poly->{Fill}{ForeColor}{RGB}=RGB($options->{fillcolor});
  }
  else
  {
    $new_poly->{Fill}{Transparency}=1;
  }

  return $new_poly;
}