sub import
  {
    my $self = shift;

    my @exports = grep { "HASH" ne ref($_) } @_;
    my @options = grep { "HASH" eq ref($_) } @_;

    foreach (@options)
      {
	# handle options here
      }

    @_ = ($self, @exports);
    goto &Exporter::import;
  }