package General @ISA = qw() sub BEGIN sub new my ($module, @args) = @_; return $this; sub DESTROY my $this = shift; sub GetFunctions return "|All|"; sub Initialize my ($this) = @_; sub Finish my ($this) = @_; sub GetId return "General(Dummy module)"; sub Measure return 0.0;