my $the_road=Road->new(-begin => $door); my $roading=threads->create(sub{$the_road->go(-on=>1,-dir=>'down')}); (localtime==$now && ($the_road->gone)>($far) && ($the_road->heading) eq 'ahead') && do { if (I->can('follow')) { I->follow(-pursue=>$the_road, -with=>(I->{feet}->set_opt(-eager=>1)), ) until (do{ my @slw=grep {$_->width > $the_road->width} @ways; $done=0; for $slw (@slw) { $the_road->meet($slw) && (grep {$_->meet($slw)} @paths,@errands)>=$many && do {$done=1;last}} $done }); TODO: { local $TODO = "I cannot say"; } }};