#============================================================ # General #============================================================ package General; use Device::DeviceObject; @ISA = qw(DeviceObject); #公開したいサブルーチン @EXPORT = qw(); use strict; use Deps; #============================================================ # コンストラクタ、デストラクタ #============================================================ BEGIN { } sub new { my ($module, @args) = @_; my $this = {}; bless $this; return $this; } sub DESTROY { my $this = shift; $this->Finish(); } #============================================================ # 変数取得関数 #============================================================ sub GetFunctions { return "|All|"; }; #============================================================ # 一般関数 #============================================================ sub Initialize { my ($this) = @_; } sub Finish { my ($this) = @_; } sub GetId { return "General(Dummy module)"; } sub Measure { return 0.0; } 1;