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