2008年09月14日15:21 Perl モジュールで既にimport関数を実装しているときー use Sample; して、関数をexportしたいんだけど、Sample.pmの中で、既にimport関数を実装しててうまくexport出来ないってときは↓でOK package Sample; use strict; use warnings; our @ISA = qw(Exporter); # use base qw(Exporter);と同じ our @EXPORT = qw(hoge fuga); sub import { print "import called\n"; $Sample::hoge = 1; $Sample::fuga = 1; Sample->export_to_level(1, @_); } sub hoge { return $_[0] * $_[1] }