sub import
{
 my $class = shift;
 while (@_)
  {
   my $layer = shift;
   if (exists $alias{$layer})
    {
     $layer = $alias{$layer}
    }
   else
    {
     $layer = "${class}::$layer";
    }
   eval "require $layer";   # line 22
   warn $@ if $@;

##</code><code>##

$layer = $1 if $layer =~ m/^([\w:]+)$/;