print " -- executing: $component_name " . ($force_flag ? "(forced)" : "") . " ($component) \n";
my $thr = threads->create( sub {
my $passed_component = shift;
print "STARTED: $component_name ($passed_component)\n";
$passed_component->execute($current_time);
print "FINISHED: $component_name (at $current_time)\n";
}, $component
);
####
-- executing: MYCOMPONENT (Scheduler::Component=HASH(0x1dd4244))
STARTED: MYCOMPONENT (Scheduler::Component=HASH(0x21bca9c))
##
##
CREATED NEW COMPONENT (Scheduler::Component=HASH(0x1dd4244))