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

##</code><code>##

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

  return unless $self->slide;

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

  my $new_shape = $self->slide->Shapes->AddShape($shape, $options->{left}, $options->{top}, $options->{width}, $options->{height});

  return $new_shape;
}

##</code><code>##

# Add the Rectangle
$pp->add_shape('msoShapeRectangle', { left=>100, top=>100, width=>100, height=>100});

# Add the Rectangle
$pp->add_shape(1, { left=>100, top=>100, width=>100, height=>100});