File Coverage

blib/lib/Perl/Lint/Constants/Kind.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	20	20	100.0

package Perl::Lint::Constants::Kind;
use strict;
use warnings;
use Compiler::Lexer::Constants;
use parent qw/Exporter/;

our @EXPORT = qw(
    KIND_ASSIGN
    KIND_CTRL
    KIND_DECL
    KIND_OP
    KIND_STMT
    KIND_STMT_END
    KIND_TERM
);

use constant {
    KIND_ASSIGN => Compiler::Lexer::Kind::T_Assign,
    KIND_CTRL => Compiler::Lexer::Kind::T_Control,
    KIND_DECL => Compiler::Lexer::Kind::T_Decl,
    KIND_OP   => Compiler::Lexer::Kind::T_Operator,
    KIND_STMT => Compiler::Lexer::Kind::T_Stmt,
    KIND_STMT_END => Compiler::Lexer::Kind::T_StmtEnd,
    KIND_TERM => Compiler::Lexer::Kind::T_Term,
};

1;