line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
#!/usr/bin/perl |
2
|
21
|
|
|
21
|
|
10732
|
use strict; |
|
21
|
|
|
|
|
38
|
|
|
21
|
|
|
|
|
732
|
|
3
|
21
|
|
|
21
|
|
106
|
use warnings; |
|
21
|
|
|
|
|
28
|
|
|
21
|
|
|
|
|
708
|
|
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
package WWW::Shopify::Liquid::Operator::Assignment; |
6
|
21
|
|
|
21
|
|
91
|
use base 'WWW::Shopify::Liquid::Operator'; |
|
21
|
|
|
|
|
30
|
|
|
21
|
|
|
|
|
1574
|
|
7
|
21
|
|
|
21
|
|
119
|
use List::Util qw(first); |
|
21
|
|
|
|
|
26
|
|
|
21
|
|
|
|
|
3817
|
|
8
|
291
|
|
|
291
|
0
|
706
|
sub symbol { return '='; } |
9
|
598
|
|
|
598
|
0
|
1160
|
sub priority { return 1; } |
10
|
|
|
|
|
|
|
sub operate { |
11
|
0
|
|
|
0
|
0
|
|
return first { ($_ cmp $_[4]) == 0 } ref($_[3]) eq "ARRAY"; |
|
0
|
|
|
0
|
|
|
|
12
|
0
|
|
|
|
|
|
return index($_[3], $_[4]) != -1; |
13
|
|
|
|
|
|
|
} |
14
|
|
|
|
|
|
|
|
15
|
|
|
|
|
|
|
1; |