(my $modname = $module . '.pm') =~ s,::,/,g;
  require $modname;

##</code><code>##

  for my $var (@import_list)
  {
    no strict 'refs';
    *{$package . '::' . $imports{$var}} = *{$module . '::' . $var};
  }

##</code><code>##

sub import {
  my $class = shift;
  my @modules = @_;
  my $package = caller();

  for my $module ( keys %modules ) {
    my $imports = $modules{$module};

    # we need to load the module if it doesn't already exist.
    (my $modname = $module . '.pm') =~ s,::,/,g;
    require $modname;

    for my $var (@import_list)
    {
      no strict 'refs';

      my $from = join '::', $module,  $var;
      my $to   = join '::', $package, $imports->{var};

      *{$to} = *{$from};
    }
  }
}