{ my %imported; sub import { my( $class, @exports ) = @_; return if $imported{$class}++; # rest of your import here. } }