line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package DTL::Fast::Expression::Operator; |
2
|
98
|
|
|
98
|
|
3467
|
use strict; use utf8; use warnings FATAL => 'all'; |
|
98
|
|
|
98
|
|
215
|
|
|
98
|
|
|
98
|
|
2544
|
|
|
98
|
|
|
|
|
501
|
|
|
98
|
|
|
|
|
168
|
|
|
98
|
|
|
|
|
472
|
|
|
98
|
|
|
|
|
2358
|
|
|
98
|
|
|
|
|
178
|
|
|
98
|
|
|
|
|
5587
|
|
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
our $VERSION = '1.00'; |
5
|
|
|
|
|
|
|
|
6
|
98
|
|
|
98
|
|
495
|
use DTL::Fast qw(register_operator); |
|
98
|
|
|
|
|
179
|
|
|
98
|
|
|
|
|
17786
|
|
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
register_operator( |
9
|
|
|
|
|
|
|
'or' => [0, 'DTL::Fast::Expression::Operator::Binary::Or'], |
10
|
|
|
|
|
|
|
|
11
|
|
|
|
|
|
|
'and' => [1, 'DTL::Fast::Expression::Operator::Binary::And'], |
12
|
|
|
|
|
|
|
|
13
|
|
|
|
|
|
|
'==' => [2, 'DTL::Fast::Expression::Operator::Binary::Eq'], |
14
|
|
|
|
|
|
|
'!=' => [2, 'DTL::Fast::Expression::Operator::Binary::Ne'], |
15
|
|
|
|
|
|
|
'<>' => [2, 'DTL::Fast::Expression::Operator::Binary::Ne'], |
16
|
|
|
|
|
|
|
'<' => [2, 'DTL::Fast::Expression::Operator::Binary::Lt'], |
17
|
|
|
|
|
|
|
'>' => [2, 'DTL::Fast::Expression::Operator::Binary::Gt'], |
18
|
|
|
|
|
|
|
'<=' => [2, 'DTL::Fast::Expression::Operator::Binary::Le'], |
19
|
|
|
|
|
|
|
'>=' => [2, 'DTL::Fast::Expression::Operator::Binary::Ge'], |
20
|
|
|
|
|
|
|
|
21
|
|
|
|
|
|
|
'+' => [3, 'DTL::Fast::Expression::Operator::Binary::Plus'], |
22
|
|
|
|
|
|
|
'-' => [3, 'DTL::Fast::Expression::Operator::Binary::Minus'], |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
'*' => [4, 'DTL::Fast::Expression::Operator::Binary::Mul'], |
25
|
|
|
|
|
|
|
'/' => [4, 'DTL::Fast::Expression::Operator::Binary::Div'], |
26
|
|
|
|
|
|
|
'%' => [4, 'DTL::Fast::Expression::Operator::Binary::Mod'], |
27
|
|
|
|
|
|
|
'mod' => [4, 'DTL::Fast::Expression::Operator::Binary::Mod'], |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
'not in' => [5, 'DTL::Fast::Expression::Operator::Binary::NotIn'], |
30
|
|
|
|
|
|
|
'in' => [5, 'DTL::Fast::Expression::Operator::Binary::In'], |
31
|
|
|
|
|
|
|
|
32
|
|
|
|
|
|
|
'not' => [6, 'DTL::Fast::Expression::Operator::Unary::Not'], |
33
|
|
|
|
|
|
|
|
34
|
|
|
|
|
|
|
'defined' => [7, 'DTL::Fast::Expression::Operator::Unary::Defined'], |
35
|
|
|
|
|
|
|
|
36
|
|
|
|
|
|
|
'**' => [8, 'DTL::Fast::Expression::Operator::Binary::Pow'], |
37
|
|
|
|
|
|
|
'pow' => [8, 'DTL::Fast::Expression::Operator::Binary::Pow'], |
38
|
|
|
|
|
|
|
); |
39
|
|
|
|
|
|
|
|
40
|
|
|
|
|
|
|
1; |