File Coverage

blib/lib/WWW/Shopify/Liquid/Operator/NotRegex.pm
Criterion Covered Total %
statement 13 17 76.4
branch 1 6 16.6
condition 1 6 16.6
subroutine 6 6 100.0
pod 0 3 0.0
total 21 38 55.2


line stmt bran cond sub pod time code
1             #!/usr/bin/perl
2 37     37   15032 use strict;
  37         108  
  37         1171  
3 37     37   247 use warnings;
  37         91  
  37         1431  
4              
5             # So sick of crap.
6             package WWW::Shopify::Liquid::Operator::NotRegex;
7 37     37   241 use base 'WWW::Shopify::Liquid::Operator';
  37         93  
  37         7878  
8 1318     1318 0 4206 sub symbol { return '!~'; }
9 6205     6205 0 18400 sub priority { return 5; }
10             sub operate {
11 1     1 0 6 my ($self, $hash, $action, $op1, $op2) = @_;
12 1 50 33     15 return 1 if !defined $op1 && defined $op2;
13 0 0 0       return undef unless defined $op1 && defined $op2;
14 0           my @groups = ($op1 !~ m/$op2/);
15 0 0         return undef if (int(@groups) == 0);
16 0           return \@groups;
17             }
18              
19             1;