소스 검색

Added new operator handler

Alois Mahdal 12 년 전
부모
커밋
ce94e72d7d
1개의 변경된 파일6개의 추가작업 그리고 0개의 파일을 삭제
  1. 6
    0
      lib/SugarTrail/Template/Condition.pm

+ 6
- 0
lib/SugarTrail/Template/Condition.pm 파일 보기

@@ -19,6 +19,12 @@ sub _regex {
19 19
     return $a =~ m/$b/;
20 20
 }
21 21
 
22
+sub _in {
23
+    my $a = shift;
24
+    my %b = map { $_ => 1 } @_;
25
+    return exists $b{$a};
26
+}
27
+
22 28
 sub new {
23 29
     my $class   = shift;
24 30
     my $self    = {};