package DB;

use Time::HiRes;

my %testDB = ( null => sub {
                   my($pkg,$filename,$line) = caller;
                   $profile || return;
                   %packages && !$packages{$pkg} && return;
               },
               work => sub {
                   $do_something{foo} = 'bar';
                   my($pkg,$filename,$line) = caller;
                   $profile || return;
                   %packages && !$packages{$pkg} && return;
               });



my $n = 10;
for (1..$n) {
    for my $t (keys %testDB) {
        my $testDB = $testDB{$t};
        my $nulltime = 0;
        for (1..100) {
            my($u,$s,$cu,$cs) = times;
            $cstart = $u+$s+$cu+$cs;
            $start = Time::HiRes::time;
            &$testDB;
            ($u,$s,$cu,$cs) = times;
            $cdone = $u+$s+$cu+$cs;
            $done = Time::HiRes::time;
            $diff = $done - $start;
            $nulltime += $diff;
        }
        $time{$t} = $nulltime / 100 * 1e6;
    }
    printf "null: %.2f, work: %.2f, delta: %.2f\n",
        $time{null}, $time{work}, $time{work} - $time{null};
}