package load;
use Carp;
use strict;

sub as {
  my $pkg = shift;

  # Set the alias.
  $_[0] = $pkg;

  # load the module
  eval "require $pkg";
  die $@ if $@;

  # import it?
  shift;
  if (@_) {
    unshift @_, $pkg;
    my $import = $pkg->can("import")
      or croak("No import available to use");
    goto &$import;
  }
}

1;