diff options
Diffstat (limited to 'lib/VNWeb/Prelude.pm')
-rw-r--r-- | lib/VNWeb/Prelude.pm | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/VNWeb/Prelude.pm b/lib/VNWeb/Prelude.pm index 10fc3b8d..bf1db2a0 100644 --- a/lib/VNWeb/Prelude.pm +++ b/lib/VNWeb/Prelude.pm @@ -69,6 +69,7 @@ sub import { no strict 'refs'; *{$c.'::RE'} = *RE; *{$c.'::json_api'} = \&json_api; + *{$c.'::in'} = \∈ } @@ -129,4 +130,17 @@ sub json_api { }; } + +# Simple "is this element in the array?" function, using 'eq' to test equality. +# Supports both an @array and \@array. +# Usage: +# +# my $contains_hi = in 'hi', qw/ a b hi c /; # true +# +sub in { + my($q, @a) = @_; + $_ eq $q && return 1 for map ref $_ eq 'ARRAY' ? @$_ : ($_), @a; + 0 +} + 1; |