use MyCode::ProcessC( "DataType::Class" ); #### package MyCode::ProcessC; use strict; sub import { if( 2 != @_ ) { require Carp; Carp::croak( 'Usage: use ',__PACKAGE__, '( "DataType::Class" )' ); } my( $self, $class )= @_; for my $meth ( qw( process_c ) ) { no strict 'refs'; *{$class."::".$meth}= \&$meth; } }