package interface; my %classes; sub import { my $callerpackage = caller; $classes{$callerpackage} = [@_]; } INIT { while (my $class, $info) = each %classes) { check_a_class($class, $info); } }