sub do_<op> { my ($self, $other, $switch) = @_; @$self = map { $switch ? ($other <op> $_) : ($_ <op> $other) } @$self; return $self; }
The Perfect is the Enemy of the Good.
In reply to Re^4: RFC: Junction.pm
by dragonchild
in thread RFC: Junction.pm
by fireartist
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |