浏览代码

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
     return $a =~ m/$b/;
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
 sub new {
28
 sub new {
23
     my $class   = shift;
29
     my $class   = shift;
24
     my $self    = {};
30
     my $self    = {};