| … | |
… | |
| 341 | $self->{sgf} .= join "][", map $prop->{out}->($self, $_), @$value; |
341 | $self->{sgf} .= join "][", map $prop->{out}->($self, $_), @$value; |
| 342 | } else { |
342 | } else { |
| 343 | $self->{sgf} .= $prop->{out}->($self, $value); |
343 | $self->{sgf} .= $prop->{out}->($self, $value); |
| 344 | } |
344 | } |
| 345 | } else { |
345 | } else { |
| 346 | $self->{sgf} .= join "][", @$value; |
346 | $self->{sgf} .= |
|
|
347 | ref $value |
|
|
348 | ? join "][", @$value |
|
|
349 | : $value; |
| 347 | } |
350 | } |
| 348 | |
351 | |
| 349 | $self->{sgf} .= "]"; |
352 | $self->{sgf} .= "]"; |
| 350 | } |
353 | } |
| 351 | |
354 | |
| … | |
… | |
| 410 | $i1->($_[0], $l), |
413 | $i1->($_[0], $l), |
| 411 | defined $r ? $i2->($_[0], $r) : undef, |
414 | defined $r ? $i2->($_[0], $r) : undef, |
| 412 | ] |
415 | ] |
| 413 | } else { |
416 | } else { |
| 414 | # yes, this is not according to standard, but let's handle it somehow anyway |
417 | # yes, this is not according to standard, but let's handle it somehow anyway |
| 415 | #[ $i1->($_[0], $l) ] #d# #TODO# |
418 | [ $i1->($_[0], $_[1]) ] |
| 416 | } |
419 | } |
| 417 | }, |
420 | }, |
| 418 | sub { |
421 | sub { |
| 419 | $o1->($_[0], $_[1][0]) |
422 | $o1->($_[0], $_[1][0]) |
| 420 | . ":" |
423 | . ":" |
