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";
}
}};
--
dakkar - Mobilis in mobile
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|