Implement [//] and [||] operators. #1121
Labels
Comments
From @kylehaThis is my crack at implementing these two operators. I'm looking for Thanks. Kyle. |
From @kyleha0001--setting-Simple-implementation-of-operator.patchFrom d83a888614383b80d30e5811f69ae974647628e0 Mon Sep 17 00:00:00 2001
From: Kyle Hasselbacher <kyle@livetext.com>
Date: Mon, 6 Jul 2009 09:17:21 -0500
Subject: [PATCH] [setting] Simple implementation of [||] operator
---
src/setting/Operators.pm | 8 ++++++++
1 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
index 4aa6a8a..1608a45 100644
--- a/src/setting/Operators.pm
+++ b/src/setting/Operators.pm
@@ -60,4 +60,12 @@ sub prefix:<[//]>(@a) {
return ();
}
+sub prefix:<[||]>(@a) {
+ for @a -> $item {
+ $item || next;
+ return $item;
+ }
+ return ();
+}
+
# vim: ft=perl6
--
1.6.0.4
|
From @kylehaHere's the patch that didn't make it in the last email. Kyle. |
From @kyleha0001-Simple-implementation-of-operator.patchFrom 46d38aa631317f9af0a2d7d20ab0523b0684efd0 Mon Sep 17 00:00:00 2001
From: Kyle Hasselbacher <kyle@livetext.com>
Date: Mon, 6 Jul 2009 09:16:41 -0500
Subject: [PATCH] Simple implementation of [//] operator.
---
src/setting/Operators.pm | 8 ++++++++
1 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/src/setting/Operators.pm b/src/setting/Operators.pm
index 2460809..4aa6a8a 100644
--- a/src/setting/Operators.pm
+++ b/src/setting/Operators.pm
@@ -52,4 +52,12 @@ multi sub infix:<leg>($a, $b) {
~$a cmp ~$b;
}
+sub prefix:<[//]>(@a) {
+ for @a -> $item {
+ $item // next;
+ return $item;
+ }
+ return ();
+}
+
# vim: ft=perl6
--
1.6.0.4
|
From @moritzThanks for the patches, I've applied them with a few improvements: * squashed into one (commit dd5767c0cbfb4f1d70641e8499e21091be03729c) Cheers, |
|
The RT System itself - Status changed from 'new' to 'open' |
|
@moritz - Status changed from 'open' to 'resolved' |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment
Migrated from rt.perl.org#67258 (status was 'resolved')
Searchable as RT67258$
The text was updated successfully, but these errors were encountered: