sub import {
  my $self = shift;
  my ($i,$j,@options);

  for (@_) {
    if (++$j, ref($_) eq 'HASH') {
      push @options, splice(@_, $j + --$i, 1);
      $_ = $_[$j+$i], redo if $j + $i < @_;
    }
  }

  # handle @options
  # @_ now only holds elements which aren't hash refs

  $self->SUPER::import(@_);
}