package ParameterFile; use IniFile; @ISA = qw(IniFile); #公開したいサブルーチン #@EXPORT = qw(); use strict; sub new { my ($module, $path, $CreateIniFile, $UseAsIniFile) = @_; $CreateIniFile = 0 if(!defined $CreateIniFile); $UseAsIniFile = 0 if(!defined $UseAsIniFile); my $self = new IniFile($path, $CreateIniFile, $UseAsIniFile); return bless $self, ref($module) || $module; } 1;