#============================================================ # CommonParams #============================================================ package CommonParams; use Common; @ISA = qw(Common); #公開したいサブルーチン @EXPORT = qw($black1 $black2 $red1 $red2 $sf1 $sf2); #@EXPORT_OK = qw(); use strict; #========================================== # 大域変数 #========================================== our $ModuleName = "CommonParams"; our $ModuleExplanation = "Common Parameters"; our $black1 = ""; our $black2 = ""; our $red1 = ""; our $red2 = ""; our $sf1 = ""; our $sf2 = ""; 1;