package Base;
use Carp 'croak';
use strict;

sub import {
  my $class = shift;
  my $caller = caller;
  unless (@_) {
    croak "Usage: use $class 'base::class::name'...";
  }
  for (@_) {
    my $file = $_;
    $file =~ s{::}{/}g;
    require "$file.pm";
    {
      no strict 'refs';
      push @{"$caller\::ISA"}, $_;
    }
  }
}

1;