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;
    my @import_list = keys(%$imports);
    $module->import(@import_list);

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

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

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