#!/usr/bin/perl

use harcommon;   


my @funclist = 
qw(udpinifile colsep remove_duplicates runsql runhsql get_ini_setting 
   create_min_ini delete_min_ini get_ini_file get_os get_tempdir get_slash 
   file_exists display_text debug trim rtrim ltrim date_string 
   extension_in_list string_in_list unlock_user exiterror capture_file 
   transfer_file delete_file execute_cmd find_user_home version get_clear_pass 
   get_pass get_vp get_full_item get_item get_version_num get_ext 
   get_item_minus_ext);
   
my %dispatch;

#$dispatch{$_}=*{$_}{'CODE'} foreach @funclist;  #also works
$dispatch{$_}=\&{"harcommon::$_"} foreach @funclist; 

{
    local $\="\n";
    foreach my $func (@funclist) {
        print '===========================';
        print $func;
        #print $dispatch{$func};
        print '===========================';
        print harcommon->$func() 
    }
    
}