关于一个perl模块的疑问 [求助]

关于一个perl模块的疑问 [求助]
use ParseCFG;
$cfgfile = $ldap_config->{$omc_id}->{'cfg_file'};
sub Get_cfg_info{
    my $CFG = new ParseCFG($cfgfile) || die $@;
    $CFG->Load_config() || die $@;

    @NENAME     = $CFG->Get_attr_of_table_column('HOSTS','NENAME');
    $NE_NUMS    = @NENAME;
    @IPADDRESS   = $CFG->Get_attr_of_table_column('HOSTS','IPADDRESS');
    @NEPORT     = $CFG->Get_attr_of_table_column('HOSTS','PORT');
    @NETYPE     = $CFG->Get_attr_of_table_column('HOSTS','NE_TYPE');
    @SNMP_VERSION  = $CFG->Get_attr_of_table_column('HOSTS','VERSION');
    @SNMP_COMMUNITY = $CFG->Get_attr_of_table_column('HOSTS','COMMUNITY');

    @SNMP_CODE   = $CFG->Get_attr_of_table_column('SNMPTREE','CODE');
    $ATT_NUMS    = @SNMP_CODE;
    @SNMP_TREE   = $CFG->Get_attr_of_table_column('SNMPTREE','TREE');
    @SNMP_OBJECT  = $CFG->Get_attr_of_table_column('SNMPTREE','OBJECT');
    @SNMP_NE_TYPE  = $CFG->Get_attr_of_table_column('SNMPTREE','NE_TYPE');
    @SNMP_ARITH   = $CFG->Get_attr_of_table_column('SNMPTREE','ARITH');

    @SNMPNEXT_CODE = $CFG->Get_attr_of_table_column('SNMPNEXTTREE','CODE');
    $ATT_NEXT_NUMS = @SNMPNEXT_CODE;
    @SNMPNEXT_TREE = $CFG->Get_attr_of_table_column('SNMPNEXTTREE','TREE');

    @SET_TREE    = $CFG->Get_attr_of_table_column('SNMPSET','TREE');
    @SET_TYPE    = $CFG->Get_attr_of_table_column('SNMPSET','TYPE');
    @SET_VALUE   = $CFG->Get_attr_of_table_column('SNMPSET','VALUE');

    @READNAME    = $CFG->Get_attr_of_table_column('RWNAME','RNAME');
    @WRITENAME   = $CFG->Get_attr_of_table_column('RWNAME','WNAME');
    return;
}
有没有关于这个模块的详细一点的解释