line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Perl::Lint::Constants::Kind; |
2
|
134
|
|
|
134
|
|
819
|
use strict; |
|
134
|
|
|
|
|
214
|
|
|
134
|
|
|
|
|
4694
|
|
3
|
134
|
|
|
134
|
|
592
|
use warnings; |
|
134
|
|
|
|
|
193
|
|
|
134
|
|
|
|
|
3189
|
|
4
|
134
|
|
|
134
|
|
1135
|
use Compiler::Lexer::Constants; |
|
134
|
|
|
|
|
2477
|
|
|
134
|
|
|
|
|
3462
|
|
5
|
134
|
|
|
134
|
|
1329
|
use parent qw/Exporter/; |
|
134
|
|
|
|
|
629
|
|
|
134
|
|
|
|
|
800
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
our @EXPORT = qw( |
8
|
|
|
|
|
|
|
KIND_ASSIGN |
9
|
|
|
|
|
|
|
KIND_CTRL |
10
|
|
|
|
|
|
|
KIND_DECL |
11
|
|
|
|
|
|
|
KIND_OP |
12
|
|
|
|
|
|
|
KIND_STMT |
13
|
|
|
|
|
|
|
KIND_STMT_END |
14
|
|
|
|
|
|
|
KIND_TERM |
15
|
|
|
|
|
|
|
); |
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
use constant { |
18
|
134
|
|
|
|
|
20689
|
KIND_ASSIGN => Compiler::Lexer::Kind::T_Assign, |
19
|
|
|
|
|
|
|
KIND_CTRL => Compiler::Lexer::Kind::T_Control, |
20
|
|
|
|
|
|
|
KIND_DECL => Compiler::Lexer::Kind::T_Decl, |
21
|
|
|
|
|
|
|
KIND_OP => Compiler::Lexer::Kind::T_Operator, |
22
|
|
|
|
|
|
|
KIND_STMT => Compiler::Lexer::Kind::T_Stmt, |
23
|
|
|
|
|
|
|
KIND_STMT_END => Compiler::Lexer::Kind::T_StmtEnd, |
24
|
|
|
|
|
|
|
KIND_TERM => Compiler::Lexer::Kind::T_Term, |
25
|
134
|
|
|
134
|
|
15627
|
}; |
|
134
|
|
|
|
|
257
|
|
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
1; |
28
|
|
|
|
|
|
|
|