| … | |
… | |
| 514 | ); |
514 | ); |
| 515 | |
515 | |
| 516 | sub emit { |
516 | sub emit { |
| 517 | my ($self, $signal, @args) = @_; |
517 | my ($self, $signal, @args) = @_; |
| 518 | |
518 | |
| 519 | # I do not really like this solution, but I dislike duplication |
519 | # I do not really like this solution, but I do not like duplication |
| 520 | # and needlessly verbose code, too. |
520 | # and needlessly verbose code, either. |
| 521 | my @append |
521 | my @append |
| 522 | = $has_coords{$signal} |
522 | = $has_coords{$signal} |
| 523 | ? $args[0]->xy ($self) |
523 | ? $args[0]->xy ($self) |
| 524 | : (); |
524 | : (); |
| 525 | |
525 | |
